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WIE SIE JEDE WOCHE IHR HEFT BEKOMMEN 
Computer Kurs ist ein wöchentlich erscheinendes Sammelwerk. Die Gesamt- 
zahl der Hefte ergibt ein vollständiges Computer-Nachschlagewerk. Damit 
Sie jede Woche Ihr Heft erhalten, bitten Sie Ihren Zeitschriftenhändler, Com- 
puter Kurs für Sie zu reservieren. 
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Ihr Zeitschriftenhändler besorgt Ihnen gerne zurückliegende Hefte. Sie kön- 
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wort: Computer Kurs 
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Kennwort: Computer Kurs. 


Schweiz: Das einzelne Heft kostet sfr 3,80. Bitte wenden Sie sich an Ihren 
Kiosk; dort werden Sie jederzeit die gewünschten Exemplare erhalten. 


Abonnement 

Sie können Computer Kurs auch alle 2 Wochen (je 2 Ausgaben) per Post zum 
gleichen Preis im Abonnement beziehen. Der Abopreis für 12 Ausgaben be- 
trägt DM 45,60 inkl. Mwst., den wir Ihnen nach Eingang der Bestellung be- 
rechnen. Bitte senden Sie Ihre Bestellung an: Marshall Cavendish Int. Ltd. 
(MCI), Sammelwerk Service, Postgiroamt Hamburg 86853-201, Postfach 105703, 
2000 Hamburg 1, Kennwort: Abo Computer Kurs. Bitte geben Sie an, ab wel- 
cher Nummer das Abo beginnen soll und ob Sie regelmäßig für jeweils 12 Fol- 
gen einen Sammelordner wünschen. 


WICHTIG: Bei Ihren Bestellungen muß der linke Abschnitt der 
Zahlkarte Ihre vollständige Adresse enthalten, damit Sie die 
Hefte schnell und sicher erhalten. Überweisen Sie durch Ihre 
Bank, so muß die Überweisungskopie Ihre vollständige An- 
schrift gut leserlich enthalten. 


SAMMELORDNER 

Sie können die Sammelordner entweder direkt bei Ihrem Zeitschriftenhändler 
kaufen (falls nicht vorrätig, bestellt er sie gerne für Sie) oder aber Sie bestellen 
die Sammelordner für den gleichen Preis beim Verlag wie folgt: 


Deutschland: Der Sammelordner kostet DM 12. Bitte füllen Sie eine Zahl- 
karte aus an: Marshall Cavendish International Ltd. (MCI), Sammelwerk-Ser- 
vice, Postgiroamt Hamburg 48064-202, Postfach 105703, 2000 Hamburg 1, 
Kennwort: Sammelordner Computer Kurs. 


Österreich: Der Sammelordner kostet öS 98. Bitte füllen Sie eine Zahlkarte 
aus an: Computer Kurs Wollzeile 11, 1011 Wien, Postscheckkonto Wien 
7857201 oder legen Sie Ihrer Bestellung einen Verrechnungsscheck bei. 
Kennwort: Sammelordner Computer Kurs. 


Schweiz: Der Sammelordner kostet sfr 15. Bitte wenden Sie sich an Ihren 
Kiosk; dort werden Sie jederzeit die gewünschten Exemplare erhalten. 
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Bereits vor der Präsentation in 
der Öffentlichkeit sorgte Commo- 
dores Amiga für beträchtliche 
Spannung. Seine innovativen 
Designs und seine Leistungsfähig- 
keit ließen aufhorchen. 


rsprünglich wurde der Amiga von der 

Amiga Corporation in den USA entwickelt. 
Commodore erwarb lediglich die Rechte an 
diesem Gerät. Da der Amiga für den Ge- 
schäftsbereich und den ernsthaften Anwender 
entwickelt wurde, Commodore aber in den 
USA vornehmlich als Hersteller kleinerer 
„Spielecomputer" betrachtet wird, entschied 
sich das Unternehmen für ein völlig neues 
Marketing. 

Der Amiga in seinem Komplettgehäuse mit 
integriertem Laufwerk macht einen sehr pro- 
fessionellen Eindruck. Die Tastatur ist an der 
Unterseite mit Klappfüßen versehen, mit de- 
nen sich der Bedienungswinkel den Gegeben- 
heiten des Arbeitsplatzes gemäß einstellen 
läßt. Wenngleich die Tastatur-Ergonomie nicht 
optimal ist, liegt sie doch über dem gewohnten 
Standard. Rechts neben der Tastatur ist ein 
Cursor-Steuerungsfeld, mit dem Maus-Funk- 
tionen nachgeahmt werden können. 

Der Amiga wird mit integriertem 3 1/2-Zoll- 
Laufwerk geliefert, das eine Speicherkapazität 
von 880 KBytes bietet. Damit hat der Amiga auf 
einem Laufwerk Zugriffsmöglichkeit zu mehr 
Daten als mancher Rechner mit Doppel-Dis- 
, kettenstation. 

Entfernt man die vordere Abdeckung links 
vom Laufwerk, entdeckt man den Erweite- 
rungsschacht. Standardmäßig ist der Amiga 
mit 256 KByte ausgestattet, er kann aber mit er- 
weiterndem Speichermodul auf 512 KByte 
hochgerüstet werden. Seitlich rechts am Com- 
puter befindet sich ein Interface, über die der 
Rechner mit der Maximalkonfiguration verbun- 
den werden kann, womit die Gesamtkapazität 
bei rund acht Megaßyte liegt. An dieser Seite 
befinden sich ebenfalls zwei D-Stecker (9po- 
lig), an die Steuerknüppel bzw. die Maus an- 
geschlossen werden. 

Auf der Rückseite des Gehäuses sind die 
weiteren peripheren Schnittstellen angebracht, 
von links der Tastatur-Port, der Centronics- 
Drucker-Port sowie ein Interface für eine 
zweite Diskettenstation. Ferner verfügt der 
Amiga über eine RS232-Schnittstelle für Mo- 
dem und andere serielle Peripheriegeräte so- 
wie zwei Audiobuchsen. Es empfiehlt sich, sie 


direkt an den speziellen Amiga-Monitor oder 
— noch besser — an ein HiFi-System anzu- 
schließen, um die herausragenden Klangmög- 
lichkeiten des Computers optimal ausschöp- 
fen zu können. 

Die verbleibenden drei Ports sind für Video- 
Funktionen reserviert; darunter ist ein 23poli- 
ger Stecker für RGB-Monitore sowie einer für 
Composite-Video. Auch steht ein „Video In"- 
Anschluß zur Verfügung, mit dem Videobilder 
vom Videorecorder oder einem anderen Com- 
puter in den Amiga gespeist werden können. 
Künftige Hardware-Erweiterungen für den 
Amiga werden einen „Rahmentaster" umfas- 
sen (mit dem sich Bilder aus einer Video- 
Quelle digitalisieren lassen), die man dann 
seitenverkehrt, gedreht oder auf andere Art 
unter Software-Steuerung manipulieren kann. 


Agnus, Daphne und Portia 


Herz des Amiga ist ein Motorola 68000-Micro- 
prozessor, wie er auch bei Apples Macintosh 
und dem Atari 520ST Anwendung findet. Was 
den Amiga aber dabei auszeichnet, ist das Zu- 
sammenspiel der drei Custom-Chips unterein- 
ander und in Verbindung mit dem 68000. Die 
Agnus, Daphne und Portia genannten Chips 
steuern die Bildschirmdarstellung, die Sprites, 


Commodores Amiga 
steht für eine dramati- 
sche Entwicklung in 
der Evolution der Mi- 
crocomputer. Die Ver- 
wendung von Spezial- 
Chips bei gleichzeiti- 
gem Einsatz der „Blit- 
ter“-Technologie stützt 
die Klang- und Grafik- 
fähigkeiten des Rech- 
ners und entlastet zu- 


gleich die CPU. 


1737 


1738 


Alles unter Taste 
Die Tastatur des Amiga gehört zum besten, was 
derzeit auf dem Markt ist. Dem neuen Trend fol- 
gend sind in die Tastatur numerische Tasten inte- 
griert, ferner zehn programmierbare Funktionsta- 
sten sowie andere Tasten, die für Kontrollfunktio- 
nen verwendet werden können. 


und den Disketten-Eingang/Ausgang. Damit 
kann der 68000 alle weiteren Aufgaben mit ho- 
her Geschwindigkeit ausführen. Agnus etwa 
ist mit einem eigenen Co-Prozessor versehen, 
ferner einem „bit image manipulator" (blitter), 
mit dem pro Sekunde eine Million Punkte be- 
wegt werden. Das Ziehen von Linien und das 
Füllen von Konturen sind ebenfalls in die 
Schaltung des Amiga integriert. Das bedeutet: 
Amiga besitzt die Fähigkeit, Figuren so schnell 
zu bewegen, zu verändern oder zu modifizie- 
ren, daß die Illusion von fließender Bewegung 
erzeugt wird. 


„Blitter Objekte“ 


Zwei Sprite-Arten stehen zur Verfügung. Die 
sogenannten „Vsprites" sind hardwaregesteu- 
ert, wodurch sie mit hoher Geschwindigkeit 
auf dem Bildschirm bewegt werden können. 
Unter Verwendung des Blitters wird die zweite, 
auf Software-Basis gesteuerte Spriteart einge- 
setzt. Diese „Blitter Objekte" (Bobs) erzeugen 
noch komplexere Konturen und Farbgebun- 
gen, als es mit VSprites möglich ist. 

Die Klangmöglichkeiten sind ebenfalls un- 
geheuer beeindruckend und in Teilen vielen 
kommerziellen Synthesizern zumindest eben- 
bürtig. Der Amiga kann digital aufgezeichnete 
Klänge reproduzieren, die sich daraufhin in 
der Tonhöhe manipulieren lassen, nach Belie- 
ben auch in Stereo. Standardmäßig ist das 
System mit Sprachsynthese ausgestattet. 

Gesteuert wird der Amiga mit einem an- 
wenderfreundlichen WIMP-System, Work- 
bench benannt, das in der Art dem Macintosh 
und den Rechnern auf GEM-Basis entspricht. 
Files werden durch Ansteuerung der entspre- 
chenden Piktogramme und anschließendem 
Druck auf den Knopf der Maus geladen. Dar- 
unter liegt das als AmigaDOS bekannte Be- 
triebssystem, mit dem der Rechner wirklich 
„Multi-Tasking"-fähig ist. AmigaDOS wie- 
derum ruft „Intuition“ auf, jenen Firmware-Teil, 
der die Fenster und die Maus überwacht. 

In der Praxis erlauben die Multi-Tasking- 
Möglichkeiten des Amiga den Betrieb mehre- 
rer Anwendungen gleichzeitig und doch unab- 


Metacomco im Amiga 


Das in Bristol ansässige Software-Haus Meta- 
comco wurde 1981 gegründet und entwickelte 


Byte-Größe 


Bilder 


Die Grafikmöglichkeiten 
des Amiga liegen weit 
über denen anderer 
Rechner dieser Preis- 
klasse. Komplexe Anima- 
tion und hochauflösende 
Grafiken machen den 
Amiga zu einer exzellen- 
ten Spielmaschine. Sein 
Macintosh-ähnliches 
WIMP-Betriebssystem 
wird ihn auch für Grafi- 
ker und Künstler attraktiv 
machen. 


9 System-Software für 16- und 32-Bit-Computer. 
Sein Personal-BASIC, für Digital Research 
.py> entwickelt, wurde zum Standard für CP/M-86- 
she Computer. Unlängst konzentrierte Metacomco 


seine Aktivitäten auf das Schreiben von 
68000-Software. Dabei entstanden Versionen 
von PASCAL, LISP und C für den Sinclair QL, 
den Atari 520ST sowie 68000 Assembler und 
Software-Entwicklungsprogramme. 
Metacomco wurde aufgefordert, das Ami- ) 
gaDOS zu schreiben, nachdem ein anderes 
Systemhaus die Aufgabe nicht lösen konnte. 
AmigaDOS basiert auf einem Multi-Tasking- 
Netzsystem, das als Tripos bekannt ist. Es 
wurde ursprünglich vor einigen Jahren als 
PhD-Projekt an der Universität Cambridge 


einer Ausstellung 


Disk-Name 


gri 
Zugriff Datenblock 
| Verweise 


Byte-Größe 


Datenblock 
Byte-Größe 


Der Amiga wird durch 
eine Piktogramm- 
Schnittstelle mit Namen 
Workbench gesteuert. 
Die vertrauten Fenster 
und Piktogramme sind 
hier dargestellt. 


entwickelt. Dr. Tim King, Leiter der Meta- 
comco-Entwicklungs-Abteilung, bekam den 
Auftrag, Tripos in nur einem Monat in ein Be- 
triebssystem für den Amiga umzuwandeln. 

Anschließend wurde Metacomco stärker in 
das Amiga-Projekt integriert. Man schrieb 
das Amiga BASIC, den mit dem Amiga ge- 
koppelten BASIC-Interpreter als auch PAS- 
CAL und LISP. Das Haus erstellte auch einen 
Makro-Assembler und Entwicklungssysteme, 
die unter UNIX und MS-DOS laufen. 

Wenngleich AmigaDOS derzeit die Netz- 
möglichkeiten noch nicht nutzt, handelt es 
sich bei Tripos um ein Netzwerk-Betriebssy- 
stem. Für die Zukunft ist die Vernetzung von 
bis zu 255 Amigas vorgesehen. Tim King 
sieht das System als Alternative zu Großre- 
chensystemen. Das Netzwerk ist flexibel ge- 
nug, um nötigenfalls weitere Rechner an- 
schließen zu können. 


Zurück und Vorwärts 


Das AmigaDOS ist ungewöhnlich. Herkömm- 
liche Systeme bedienen sich einer Directory, 
die die Namen aller Files auf der Diskette 
enthält und Hinweise auf die ersten Daten- 
blocks gibt. Das AmigaDOS hingegen ist in 
Baumstruktur aufgebaut und verfügt über 
einen Satz von vor- und rückwärts zeigenden 
Verweisen, die die einzelnen Segmente der 
Diskette miteinander verbinden. Eine Direc- 
tory in diesem Sinne gibt es nicht, sondern 
lediglich einen sogenannten „Wurzel“-Block 
mit Verzweigungspfeilen. 

Die Kopfleiste des Files enthält mehrere 
Hinweise auf die Datenblocks im File sowie 
andere Informationen, etwa Byte-Größe und 
Datum des letzten Zugriffs. Die Datenblocks 
im File sind ferner durch Pfeile miteinander 
verknüpft. Jeder Datenblock enthält zudem 
einen Rückwärts-Verweis auf die Kopfleiste 
des Files, zu dem er gehört. 

Dieses Pfeil- bzw. Verweis-System bietet 
einen entscheidenden Vorteil. Wird eine Dis- 
kette beschädigt und verfügt nur noch über 
einen einzigen „guten“ Block, kann die kom- 
plette Diskettenstruktur aufgrund der Ver- 
weise neu geschaffen werden. 


hängig voneinander. Das ist ein gewichtiges 
Argument für den Einsatz im Bürobereich, da 
es sich um den ersten Microcomputer dieser 
Preisklasse handelt, der solche Möglichkeiten 
bietet. Da die Verarbeitungsmöglichkeiten des 
Rechners durch sogenanntes „Time-Slice“ ent- 
sprechend beeinträchtigt werden (jede An- 
wendung belegt eine gewisse Zugriffszeit), 
kommt bei mehreren „Multi-Tasking"-Anwen- 
dungen ein erheblicher Geschwindigkeitsver- 
lust zustande. 

Eines der Hauptprobleme für alle Computer- 
Hersteller in den USA, die in den Business-Be- 
reich vordringen wollen, ist die Dominanz von 
IBM und die Abneigung der Business-Compu- 
ter-Benutzer, neue Rechner auszuprobieren, 
eine Folge der Überfülle an IBM-Nachbauten. 
Wenngleich der Amiga dem IBM PC in Sachen 
Preis (er kostet nur die Hälfte) überlegen ist, 
versucht Commodore den Erfolg des Systems 
dadurch sicherzustellen, daß es mit einem 8\/.” 
Laufwerk ausgestattet und entsprechende 
Übersetzungs-Software verfügbar ist, die den 
Rechner IBM-kompatibel macht. Commodore 
sagt dazu, daß damit auf dem Amiga Pro- 
gramme wie Lotus 1-2-3 lauffähig sind. Die 
Emulations-Technik übersetzt die Op-codes 
des 8088 in entsprechende für den 68000. Da- 
mit wird die Verarbeitungsgeschwindigkeit 
des Amiga verlangsamt. 

In bezug auf Verarbeitungsgeschwindigkeit, 
Grafik- und Klangmöglichkeiten setzt der 
Amiga neue Standards. Aufgrund dieser Inno- 
vationen wird das Unternehmen mit seiner Phi- 
losophie, einen völlig neuen Markt zu eröffnen, 
richtig liegen. Ein neues Computersystem 
steht und fällt aber unverändert mit der dafür 
erhältlichen Software. Bei der Einführung in 
den USA standen für den Amiga lediglich acht 
Programme zur Verfügung. Manches indes 
weist darauf hin, daß weitere Softwarehäuser 
Programme für den Rechner schreiben; darun- 
ter auch Adaptionen von populären Macintosh- 
Programmen. 


Commodore 
Amiga 


ABMESSUNGEN 
444 x 300 x 120 mm 


ZENTRALEINHEIT 


Motorola 68000, 8 MHz Taktge- 
schwindigkeit 


SPEICHER 


256 KByte, auf 8 MegaByte er- 
weiterbar. 


BILDSCHIRMDARSTELLUNG 


Textauflösung maximal 80 X 25 
Zeichen. Die vier Grafik-Modi 
bieten Auflösungen von 

320 X 200 Punkten im 32-Far- 
ben-Modus und bis zu 

640 X 400 Zeichen im 16-Farben- 


Modus. 

SCHNITTSTELLEN 

Zwei Maus-Anschlüsse, Erwei- 
terungsbus, RS232-Schnittstelle, 


Centronics-Schnittstelle, zweiten 
Anschluß für Diskettenlauf- 


werk, RGB und Composite- 
Video-Anschlüsse. 
TASTATUR 


82 Tasten, einschließlich 10 
Funktionstasten und numeri- 
scher Tastatur. 


STÄRKEN 


Der Amiga macht Multi-Tas- 
king möglich. Die Grafik- und 
Klangfähigkeiten sind atembe- 
raubend. 


SCHWÄCHEN 


Die versprochene Software exi- 
stiert in wesentlichen Teilen 
noch nicht. Zudem hat Commo- 
dore noch keinen Zielmarkt für 
den Rechner definiert. 


Wenngleich das Amiga-BASIC keine 
herausragende Implementierung 
der Sprache ist, unterstützt sie doch 
die meisten Besonderheiten des 
Rechners. Um dieses Malprogramm 
für die Maus zu erstellen, genügen 
fünf Programmzeilen. 


Wie hier gezeigt, ist der 
Amiga ein Multi-Tasking- 
Rechner. Die Demonstra- 
tion des springenden 
Balls und Workbench 
laufen gleichzeitig. 


Die sich bewegenden Figuren, die hier gezeigt 
werden, wurden mit Hilfe der „Blitter Objekte“ er- 
stellt. Das sind Software-,Sprites“, mit denen ex- 
akte Kontur- und Farbdefinitionen möglich sind. 
Hier nimmt der Hydrant vor einem Hund Reißaus. 
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222 INFIIT "Name to seärch for”? "; LINE 
t$ ; 
7885 INPUT "Replace by?"; LINE r# 


FB1B FOR i=1 TO LEN (t#) 
9828 IF t£li)>="a" AND t#li)<i="z" THEN 
r LET t#ti)=CHR# (CODE (tFf(i))-32) 
FDZQ NEXT i 
7848 LET TokenforREM=234 
9258 LET Quote=34 
97868 LET Newline=13 
9272 LET Underscore=95 
7280 LET Number=14 
7272 LET FROG=23635 


Für die Implementierung des Va- 7108 LET TextnpinturneRck (PROG) +256*PEE 
riablen-Austauschprogramms auf 9182 LET Altprog=46029 
. 97185 LET Altpointer=Altprog 
den Spectrum muß eine andere 911® LET Lineno=2S6*PEEK (Textpointer)+P 
Methode als beim Acorn B oder EEE STAREDOS DEREN! 
7111 FRINT lineno 
C64 verwendet werden. Anstatt 9120 IF Lineno>=9@0® THEN GO TO 9600 
: ni _ 9130 LET q=2: GO SUB 9800 
das Hilfsprogramm in einem un 9135 LET Lengthaddr=Altpointer 
terschiedlichen Speicherbereich 9140 LET Nextline=Textpointer+2+PEEK (Te 
. . ° t j 2 . 
abzulegen, wird hier das Varia- 9150 LET auzı co sun an 
blen-Austauschprogramm ans ee Sg Gehen (Textpointer): LET q= 
Ende angefügt. 9170 IF Byte=Newline THEN GO TO 9118 
9180 IF Byte<>TokenforREM THEN GO TO 92 
20 


9198 REM Copy REM unaltered 
9200 LET q=Nextline-Textpointer: GO SUR 


Wi das Variablen-Austauschpro- 9800 
gramm das Programm durchläuft, legt es Bd = uinahiör ai ER 
P 5 R s . : 2 yte uote 
eine Kopie der geänderten Version in einem 9230 REM Coky anything betusen aucten..K 
Bereich oberhalb RAMTOP ab. ut stop at end of line in case of unmatc 
Der erste Teil des BASIC-Programms ähnelt pe ; 
R fi B j 3 q= 
dem Variablen-Suchprogramm. Hier gibt es ei- 9248 IF. PEEK (Textpointer+g-1)=Nenline T 
nige Zusatz-Variablen wie etwa ALTPROG, die HEN GO SUB 98008: GO TO 911@ 
auf den Anfang des für die Programmkopie re- 9250 IF PEEK (Textpointer+q-1)=Quote THE 
5 on, . der ALTPOINTER N GO SUB 9808: GO TO 9168 
servierten Bereichs zeigt, oder ER, 9268 LET q=g+1 
die die Position des nächsten Bytes im geän- 9270 GO TO 9248 


9280 REM Copy 5-byte binary number 

9298 IF Eyte=Number THEN LET q=5: 60 SU 
T 7 EB 9808: GO TO 9160 

Automatisches Schreiben 97310 REM First character of name must be 
upper or lower case letter 

* 9328 IF Byte>=CODE ("A") AND Bytei=CODE 
LDIR und LDDR beim 280 ("Z") THEN LET c$=CHR$ (Byte): 60 TO 93 
sind Block-Transferan- 70 


weisungen, die mit auto- 9330 REM Use upper case instead of lower 

matischer Inkrementie- case 

rung oder Dekrementie- 9348 IF Byte>=CODE ("a") AND Byte<=CODE 

rung een Bunt ("z") THEN LET c$=CHR$ (Byte-32): GO TO 

Register ist so initiali- sen m k 9370 

siert, daß es auf den An- . BEE 9360 GO TO 9168 

fang des Ursprungsblok- 9370 LET n$s="" 

kes zeigt, und DE muß 9380 LET nt=n$+c$ 

auf den Anfang des be- 9408 REM Letter, digit or underscore aft 

stimmungsblockes zei- er first character of name 

' gen. BT enthält die Byte- 9410 IF FPEEK (Textpointer)>=CODE ("A") A 

anzahl des Blockes. LDIR ND PEEK (Textpointer)<=CODE ("zZ") THEN 

und LDDR kopieren dann LET c$=CHR$ (FEEEK (Textpointer)): LET Te 

das Ursprungsbyte in »tpointer=Textpointer+1: GO TO 93882 

das Bestimmungsbyte, 9428 REM Use upper case instead of lower 

i case 

nn verlagern 9438 IF FEEK (Textpointer)>=CODE ("a") A 

und DE und verringern ND FEEK (Textpointer)“=CODE ("z") THEN 

BC bis hin zum Wert 0 LET c#=CHR$ (PEEK (Textpointer)-32): LET 
s 3 ste Textpointer=Textpointer+1: GO TO 9388 

wenn die Kopie fertig- 9448 IF PEEK (Textpointer)>=CODE ("a") A 

gestellt ist. Bi ND PEEK (Textpointer)<=CODE ("9") THEN 

3 LET c#=CHR# (FEEK (Textpointer)): LET Te 

»tpointer=Textpointer+1: GO TO 9388 

9450 IF FEEK (Textpointer)=Underscore TH 

EN LET c#=CHR# (FEEK (Textpointer)): LE 

T Textpointer=Textpointer+1: GO TO 9388 

97468 REM End with # for string variable 

74708 IF FEEK (Textpointer)=CODE ("#") TH 

EN LET n$#=n#+"#": LET Textpointer=Textp 

ointer+1: GO TO 9500 

7488 REM ( if array or function 

9498 IF FEEE (Textpointer)=CODE ("(") TH 

EN LET n$#=n#+CHR# (FEEE (Textpointer)): 

LET Textpointer=Textpointer+1 
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9500 IF n&$=t# THEN LET n$=r# 

9585 LET Altpointer=Altpointer-1i1 

9512 FOR p=1 TO LEN (n$) 

9522 FOKE Altpeinter,CODE (n#(p)) 

9538 LET Altpointer=Altpointer+1i 

9542 NEXT p 

9552 IF n#<>r$ THEN GO TO 9160 

9568 LET Lengthlow=PEEE (Lengthaddr)+LEN 
(r#)-LEN (t#) 

9578 IF LengthLow>255 THEN LET Lengthlo 

w=LengthLow-256: FOKE Lengthaddr+1,1+FEE 

E (Lengthaddr+1) 

9588 FOKE Lengthaddr ‚LengthLow 

9572 GO TO 9168 

9597 REM Frepare to move altered program 
back to main program area 

9628®B LET Oldlength=Textpointer-(FEEK (FR 

06) +256*FEEEK (FROG+1)) 

9618 LET Newlength=Altpointer-Altprog 

9628 FOKE 45068,Newlength-256*INT (Newle 

ngth/256) 

9630 FOKE 45961,INT (Newlength/256) 

9660 FOKE 45956, Textpointer-256*INT (Tex 

tpointer/256) 

9678 FOKE 45057,INT (Textpointer /256) 

9688 IF Oldlength=Newlength THEN RANDOM 
IZE USR (45884) 

9698 IF Oldlength{Newlength THEN LET X= 

Newlength-Oldlength 

9788 IF Oldlength>Newlength THEN LET X= 

Textpointer-(Oldlength-Newlength) 

97718 FOKE 45058,X-256*INT (X/256) 

9720 FOKE 45059,INT (X/256) 

973@ IF Oldlength{Newlength THEN RANDOM 
IZE USR 45062 

9748 IF Oldlength}Newlength THEN RANDOM 
IZE USR 45974 

9808 FOR p=Textpointer TO Textpointer+qg- 

1 

9818 FOKE Altpointer,FEEK (p) 

9828 LET Altpointer=Altpointer+i 

9832 NEXT p 

978408 LET Textpointer=p 

785@ RETURN 

F9BB SAVE "REFLACE" LINE 9918: SAVE "REP 

MC"CODE 45964,37: STOF 

99718 CLEAR 45055: LOAD "REFMC"CODE 


Ladeprogramm 


18 CLEAR 45055 

28 LET a=45062 

30 FOR 1=1000 TO 19842 STEF 18 

48 LET s=® 

SQ FOR a=a TO at? 

&8 READ b 

78 FOKE a,b 

88 LET s=s+b 

92 NEXT a 

188 READ c 

11@ IF s{>c THEN PRINT "DATA ERROR IN 
LINE "zl: STOP 

12@ NEXT 1 
10008 DATA 42,0,176,237,75,2,176,2085,913 
1018 DATA 85,22,24,10,42,0,176,237,596 
1022 DATA 91,2,176,2085,229,25,33,176,937 
1030 DATA 179,237,91,83,92,237,75,4,998 
1040 DATA 176,237,176,207,255,0,0,0,1051 


Austauschprogramm 

0988 MKROOM EQu $1655 
8888 RCLAM1 EQU $19ES 
8888 Te EQU +$B888 
8888 IE EQU $B882 
8888 T2 EQU +B884 
8888 ALTPRG EQU +B3B8 
8888 PROG EQU $5C053 
B086 ORG +$B806& 
B884 2ZAB8B8 UP LD HL, <T8) 
B0889 ED4B82B8 LD BC, (TI) 
B88D CD5516 CALL MKROOM 
B818 188A JR COPY 
Bei2 2A88B8 DOWN LD HL, (T8@) 
B0615 ED5B82B8 LD DE, <T1) 
8819 CDES1? CALL RCLAMI 
Be8iC 218883 COPY LD HL, ALTPRG 
BeiF EDSBS3SC LD DE, (PROG) 
B823 ED4B84B8 LD BC, (T2) 
B827 EDB® LDIR 

B827 CF RST 8 

Be2A FF DB $FF 


derten Programm kontrolliert. Aufgrund dieser 
Änderungen muß das Programm kopiert wer- 
den. Das erfolgt durch die Unterroutine in Zeile 
9800, die die durch q spezifizierte Anzahl von 
Bytes kopiert und die Zeiger für das alte und 
neue Programm aktualisiert. 

Die Variablennamen werden ab Zeile 9500 
kopiert. Hat sich der Name inzwischen geän- 
dert, so werden die beiden Längen-Bytes (am 
Anfang der Zeile) mit den neuen Werten ak- 
tualisiert. 

Nach Verändern und Kopieren des gesam- 
ten Programms errechnet das BASIC-Pro- 
gramm die vom Maschinencode für ein Rück- 
kopieren des geänderten Programms erforder- 
lichen Werte und POKEt diese in die Speicher- 
plätze für den Maschinencode. 


ROM-Routine MAKEROOM 


Sind das alte und das neue Programm gleich 
lang, kann das neue Programm an die Position 
des alten kopiert werden. Hier ist die einzige 
für das Maschinencode-Programm erforder- 
liche Information die Programmlänge. 

Andemfalls muß durch Verschieben der Va- 
riablen-Austauschroutine nach oben Platz im 
Programmbereich geschaffen werden. Hierzu 
wird die ROM-Routine MAKEROOM auf 
Adresse 1655 hex aufgerufen. Vor dem Aufruf 
muß das HL-Registerpaar die Adresse hinter 
der Stelle enthalten, an der zusätzlicher Platz 
geschaffen werden soll. Das BC-Registerpaar 
muß die Länge des nötigen Platzes ausweisen. 

Ist das neue Programm kürzer als das alte, 
muß das Variablen-Austauschprogramm nach 
unten geschoben werden. Dazu wird die ROM- 
Unterroutine RECLAIM-1 auf Adresse 19E5 hex 
benutzt. Vor dem Aufruf muß das HL-Register- 
paar die Adresse des ersten alleinstehenden 
Bytes und das DE-Registerpaar die Adresse 
des ersten wiederzugewinnenden Bytes ent- 
halten. Der Wert für HL ist wieder der Endwert 
von TEXTPOINTER. Der Wert für DE ist die Dif- 
ferenz zwischen alter und neuer Länge, subtra- 
hiert von TEXTPOINTER. 

Das geänderte Programm wird über den Be- 
fehl LDIR ins Hauptprogramm zurückkopiert. 
Die Startadresse des geänderten Programm- 
bereichs wird in HL, die Startadresse des 
Hauptprogrammbereichs in DE und die Länge 
des geänderten Programms in BC geladen. Mit 
LDIR wird das gesamte geänderte Programm 
Byte für Byte verschoben. 

Die letzten beiden Zeilen im Assembler-Pro- 
gramm benutzen eine andere ROM-Routine 
(bei Adresse 8). Das ist die „Bericht“-Routine, 
die Fehlermeldungen und ähnliches druckt. 
Sie wird über RST 8 aufgerufen. Der erstellte 
Bericht wird durch das Byte nach RST 8 spezifi- 
ziert. Der Wert des Bytes ist um 1 kleiner als 
die Bericht-Zahl, das heißt, FF hex oder —1 er- 
gibt OK oder PROGRAMM FINISHED, O ergibt 
NEXT without FOR usw. 
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Spur halten 


Auf einer CP/M-Daten- 
diskette steht der meiste 
Platz zwar dem Anwen- 
der zur Verfügung, doch 
reserviert das System 
sich die äußersten Spu- 
ren für eigene Zwecke. 
Spur Null enthält den Ur- 
lader, der das CP/M 
beim Einschalten des 
Geräts oder bei einem 
Reset automatisch in den 
Arbeitsspeicher lädt. Auf 
Spur eins und zwei befin- 
det sich das CP/M- 
System selbst. Darauf fol- 
gen Directoryspuren, de- 
ren Dateikontrollblöcke 
die Sektoren mit Dateien 
angeben. 
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Systemkopie 


Mit dem Diskettenbefehl SYSGEN kann CP/M die eigenen Routinen 
auf andere Disketten kopieren. Wir zeigen den internen 
Informationsfluß und stellen CCP, BIOS und BDOS vor. 


n dieser Serie wurden bisher nur CP/M- 

Befehle untersucht, die den normalen Be- 
trieb steuern. Es wurde bereits erklärt, wie die 
verschiedenen Dateitypen von CP/M geladen, 
editiert, gesichert und kopiert werden. CP/M 
selbst jedoch blieb „unsichtbar“. Es wird im Di- 
rectory nicht aufgeführt und läßt sich auch 
nicht mit Standardbefehlen ansprechen. 

Die Übertragung von CP/M auf andere Dis- 
ketten ist jedoch außerordentlich wichtig, da 
damit nicht nur Sicherheitskopien der System- 
diskette hergestellt werden, sondern sich auch 
Spezialversionen des CP/M auf andere Dis- 
ketten übertragen lassen. Ein gutes Beispiel 
dafür ist Dr. LOGO des Schneider CPC. Dieses 
Programm arbeitet mit einer CP/M-Version, 
die zusätzliche, vielerorts nützliche Editier- 
und Farbbefehle enthält. 

CP/M ist leicht zu kopieren. Bei Eingabe 
des Diskettenbefehls SYSGEN erscheinen je 
nach Systemkonfiguration Fragen auf dem 
Bildschirm, mit deren Hilfe Sie den Kopiervor- 
gang steuern können. 

Das hört sich so einfach an, daß man sich 
fragt, warum dafür ein Spezialbefehl nötig ist, 
warum CP/M und die integrierten Befehle 
nicht im DIRectory erscheinen und wie das 
CP/M Directory überhaupt aussieht. Wir ge- 
hen daher ausführlicher auf die internen Ab- 
läufe des Betriebssystems ein. 

Das ins RAM geladene System besteht aus 
drei Teilen, die unterschiedliche Funktionsbe- 
reiche steuern. Der Anwender hat hauptsäch- 
lich mit dem „Console Command Processor" 


Urlader 


CP/M-System- 
programme 


Directory- 
D 04 spur(en) 
« 


Für Anwenderdateien 
reserviert 


(CCP — Befehlsinterpreter) zu tun, der Infor- 
mationen zum Monitor sendet und die per Ta- 
statur eingegebenen Befehle interpretiert. 

Hinter den Kulissen sieht es jedoch anders 
aus. Der CCP interpretiert zunächst alle einge- 
gebenen Zeichen als CP/M-Befehle und reicht 
sie über das BIOS (Basic Input/Output System 
— Ein/Ausgabesystem) an den COCP-Buffer 
weiter. Der CCP prüft dann, ob die Eingabe mit 
einem der integrierten CP/M-Befehle überein- 
stimmt und führt ihn in diesem Fall sofort aus. 
Handelt es sich nicht um eine der „eingebau- 
ten" Befehle, nimmt der CCP an, daß es sich 
um einen Diskettenbefehl handelt und sucht 
nun auf der Systemdiskette. 


CP/M führt Regie 


Wird der Befehl gefunden, lädt das System das 
zugehörige Modul in den Arbeitsspeicher und 
führt es aus — falls nicht, wird der eingege- 
bene Name in Großbuchstaben dargestellt, ge- 
folgt von einem Fragezeichen: die CP/M- 
Meldung für „Datei nicht gefunden“. Die Um- 
wandlung in Großbuchstaben wird vom CCP 
veranlaßt, damit alle Befehlsnamen dem CP/ 
M-Standardformat entsprechen. 

Das BIOS besteht aus einer Reihe von Routi- 
nen (Peripherietreiber genannt), die die Ein- 
und Ausgabefunktionen von CP/M steuern. 
Ihre Hauptaufgabe ist die Verwaltung der an- 
geschlossenen Peripheriegeräte (darunter 
auch Tastatur und Bildschirm — das CCP sen- 
det und interpretiert alle Informationen über 
das BIOS). Das System setzt dafür die vom 
CCP gelieferten Parameter ein. Bei einer An- 
passung von CP/M auf andere Maschinen 
muß daher das BIOS geändert werden, da die 
Methoden der Peripherieverwaltung von Sy- 
stem zu System große, keineswegs zu vernach- 
lässigende Unterschiede aufweisen. 

Das BDOS (Basic Disk Operating System — 
Diskettentreiber) ist der dritte Bereich von CP/ 
M. Das BDOS verwaltet die auf der Diskette 
gespeicherten Dateien, teilt den Disketten- 
platz zu und aktualisiert die Directory. Bevor 
wir uns jedoch dem BDOS zuwenden, untersu- 
chen wir zunächst, wie der Disketteninhalt or- 
ganisiert ist. 

Vom Standpunkt der Hardware aus enthält 
eine Diskette 40 Spuren (Tracks). Neuere CP/ 
M-Versionen teilen die Spuren per Software 
weiterhin in sogenannte „weiche“ Sektoren 


(Soft Sectors) auf. Ältere Diskettensysteme ar- 
beiten noch mit „harten“ Sektoren, die von der 
Hardware mechanisch gelesen werden. Auf 
den äußeren Spuren stehen natürlich mehr 
Sektoren zur Verfügung als auf den inneren. 
Die meisten Spuren werden zur Speicherung 
von Informationen eingesetzt. 

Auf Disketten im 5 1/4-Zoll-Format sind drei 
Spuren (0 bis 2) für CP/M reserviert. Sie lie- 
gen am äußeren Rand der Diskette und enthal- 
ten den „Urlader“ für den Systemstart („Boot- 
strap Loader“ oder auch „Resident Monitor“ 
genannt), mit dem sich CP/M selbst in den Ar- 
beitsspeicher laden kann. Auch CP/M liegt in 
diesem Bereich. Mit dem Befehl SYSGEN läßt 
sich die Information dieser drei Spuren auf an- 
dere Disketten übertragen. 

Die Sektoren (auch „Records“ genannt) 
speichern je 128 Datenbytes. Bis zu 128 „Rec- 
ords" lassen sich zu einem „Unit“ (Einheit) zu- 
sammenstellen. Eine CP/M-Datei kann bis zu 
16 Units enthalten und eine Größe von maximal 
128 * 128 * 16 Bytes (=256 KBytes) erreichen. 

Da sich nur extrem kleine Dateien in einem 
einzigen Record unterbringen lassen und es 
außerdem nicht möglich ist, alle Records in se- 
quentieller Reihenfolge auf der Diskette zu 
speichern, muß das Verwaltungssystem wis- 
sen, auf welche Sektoren der Diskette eine Da- 
tei aufgeteilt wurde. 

Diese Information ist im sogenannten Datei- 
kontrollblock (FCB — „File Control Block“) ge- 
speichert, der sich auf der vierten (Directory) 
Spur einer 51/4-Zoll-Diskette befindet. Die 
Verwaltung dieses Blocks erledigt das BDOS. 
Ein FCB besteht aus 33 Datenbytes, über die 
das BDOS alle auf der Diskette gespeicherten 
Dateien identifizieren und finden kann. 


Spurensicherung 


Das erste Byte des FCB gibt die aktuelle Lauf- 
werksnummer an. Die nächsten elf Bytes ent- 
halten den Dateinamen und den Dateityp (die 
Namenserweiterung). Byte 12 gibt die augen- 
blickliche „logische Extension“ an (Abschnitte 
zu je 16 KBytes, in die die Dateien intern aufge- 
teilt werden), während Byte 13 und 14 für das 
System reserviert sind. Byte 15 zeigt, wieviel 
Datenblöcke die aktuelle Extension einer Da- 
tei enthält — daraus errechnet sich die exakte 
Anzahl der Records einer Datei. Die nächsten 
16 Bytes enthalten die Belegungstabelle der 
Datei, gefolgt von einem Byte mit der Nummer 
des zuletzt angesprochenen Blocks. Den Ab- 
schluß bilden drei Bytes, die die Nummer des 
nächsten Records angeben, falls die Datei grö- 
Ber als 16 KByte ist. 

Wenn das CCP einen Befehl zur Eröffnung 
einer Datei erhält, legt es in dem für Disketten- 
befehle reservierten Zwischenspeicher einen 
neuen FCB an. Findet das BDOS nun eine Da- 
tei, deren Namen mit dem vom CCP angege- 
benen übereinstimmt, werden auch die weite- 


. . 
Dreigeteilt 
Das Betriebssystem 
CP/M enthält drei 
Teile, die unterschied- 
liche Bereiche des 
Computers steuern. 


mand Processor) 
übersetzt Informatio- 
nen, die vom Änwen- 
der kommen oder an 
ihn gesandt werden. 


Der Befehlsinterpreter Das Ein- und Ausga- 
(CCP — Console Com- besystem (BIOS — Ba- 


Befehl 


Andere V/O- 
Peripherie- 
geräte 


ren Informationen darin eingetragen. Dieser 
neue FCB im RAM läßt sich schnell vom BDOS 
aktualisieren, wenn die angesprochene Datei 
durch CP/M-Befehle verändert wird. Nach Ab- 
schluß aller Vorgänge wird die endgültige Ver- 
sion des FCB mit den geänderten Daten über 
Recordzahl und Sektorenzuteilung vom BDOS 
auf die Diskette geschrieben. 

Wir können nun den Ablauf beim Aufruf 
einer Datei zusammenfassen: Das CCP inter- 
pretiert das erste Wort, das es vom Terminal 
erhält, als CP/M-Befehl. Befindet sich dieser 
Befehl nicht im Arbeitsspeicher, sendet das 
CCP den Namen per BIOS an das BDOS. Das 
BDOS durchsucht nun die Directoryspur der 
Diskette, bis es den Namen in einem der FOBs 
findet. Wenn es sich dabei um eine Befehlsda- 
tei (.COM) handelt, stellt das BDOS über die 
Belegungstabelle fest, in welchen Disketten- 
sektoren die Datei gespeichert ist, spricht 
diese Sektoren nacheinander an, kopiert sie in 
den Arbeitsspeicher und führt den Befehl 
dann automatisch aus. 

Dabei kann es vorkommen, daß das BDOS 
eine weitere Datei suchen und laden muß. 
Wenn sich die Datei im Arbeitsspeicher befin- 
det, ergänzt das BDOS die Daten des FCB, der 
vom CCP im RAM angelegt wurde. Bei einer 
Bearbeitung der Datei wird dieser FCB auto- 
matisch auf den neuesten Stand gebracht und 
auf die Diskette geschrieben. 


Anwender 


sic Input Output Sy- 
stem) verwaltet die 


angeschlossenen Peri- 
pheriegeräte, während 


der Diskettentreiber 


die gespeicherten Da- 


teien verwaltet. 


Information 


Disketen- 
station 
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Zahlenakrobatik 


Das Array ist zwar die einzige Datenstruktur von FORTRAN, doch 
erhält die Sprache viel Flexibilität durch den komplexen Einsatz von 
Subroutinen. Wir untersuchen die speziellen Techniken für die 
Zahlenverarbeitung mit Hilfe dieser Sprache. 


as Array ist die einzige Datenstruktur, die 

dem FORTRAN-Programmierer zur Verfü- 
gung steht. Wie in BASIC müssen Arrays vor 
ihrem Einsatz deklariert werden — direkt am 
Programmanfang, da FORTRAN eine compi- 
lierte Sprache ist. Diese Deklaration erfolgt mit 
dem Befehl DIMENSION, der die gleiche 
Funktion hat wie DIM in BASIC. 

Bei systemvorgegebenen Datentypen (alle 
Variablennamen, die mit 1, J, K,L, M oder N an- 
fangen, stellen Ganzzahlen dar und alle ande- 
ren Namen reelle Zahlen) reserviert 

DIMENSION A(20), |(50) 


den Speicherplatz für ein Array mit bis zu 20 
reellen Zahlen und ein weiteres Array für bis 
zu 50 Ganzzahlen. Befehle, die die Systemein- 
stellung verändern (INTEGER, REAL, DOUBLE 
PRECISION, COMPLEX oder LOGICAL) müs- 
sen zusätzlich zu der Anweisung DIMENSION 
gegeben werden. Arrays lassen sich aber auch 
gleich in der Typendeklaration definieren: 

INTEGER ARR1(20) 

REAL NUMS(30) 


Der erste Befehl reserviert Platz für ein Array 
mit 20 Ganzzahlen und der zweite für 30 reelle 
Zahlen. 

Zweidimensionale Arrays sind möglich, ei- 
nige Sprachversionen erlauben sogar drei 
oder mehr Dimensionen. Zweidimensionale 
Arrays werden auf übliche Weise deklariert: 

DIMENSION ARR(20,30) 

INTEGER ARR(20,30) 


jede Ganzzahlkonstante oder Variable läßt 
sich als Arrayindex einsetzen, beispielsweise 
ARR(3,4) oder INTARR(). 

FORTRAN IV verarbeitet zwar keine Zei- 
chenstrings, doch stehen bei FORTRAN 77 da- 
für andere Möglichkeiten zur Verfügung (mit 
FORTRAN 77 werden wir uns in der nächsten 
Folge genauer beschäftigen). Zeichen werden 
wie Ganzzahlen in normalen Ganzzahlvaria- 
blen gespeichert. In der letzten Folge haben 
wir gesehen, wie sich ein oder mehr Zeichen 
in Ganzzahlvariablen unterbringen lassen. 
Zwar kommt das FORTRAN-Ganzzahlenarray 
einem Zeichenstring sehr nahe, doch ist es im- 
mer noch recht unbefriedigend, wenn man die 
Stringverarbeitungsmöglichkeiten von BASIC 
gewöhnt ist. 


Außer den Befehlen IF und GOTO ist die 
DO-Schleife die wichtigste Steuerstruktur von 
FORTRAN. Sie funktioniert wie die FOR... 
NEXT-Schleife in BASIC und hat folgendes 
Format: 

DO Sn (intvar) = Startwert, Endwert, 

Schrittwert 

Sn (letzter Befehl des zu wiederholenden 

Blocks) 


Sn ist die Nummer des letzten Schleifenbe- 
fehls. Schleifenzähler (intvar) kann jede Ganz- 
zahlvariable sein. Die Anfangs-, End- und 
Schrittwerte sind angegeben. In BASIC würde 
die DO-Schleife so aussehen: 
FOR intvar = Startwert TO Endwert STEP 
Schrittwert 


NEXT intvar 


Folgende Befehle setzen ein Array auf Null: 
DO 100 | = 1,20, 1 
100 ARR(l)=0 


Der Schrittwert Eins darf weggelassen werden: 
DO 100 | = 1,20 
100 ARR(I)=0 


Die numerierte Anweisung, die das Schleifen- 
ende kennzeichnet, kann jeder ausführbare 
Befehl außer IF, GOTO oder DO sein. 
Manchmal ist es praktisch, keine feste 
Schleifenendanweisung zu haben, da sich der 
Code damit komprimieren läßt. Diese Möglich- 
keit kann aber auch zu schweren Fehlern füh- 
ren, und besonders bei verschachtelten 
Schleifen werden Programme dann völlig un- 
verständlich. Die folgende Initialisierung eines 
zweidimensionalen Arrays ist jedoch legal: 


DO 100 | = 1,20 
DO 100 J = 1,30 
100 ARR(I,J)=0 


(Beachten Sie, daß bei beiden Schleifen die 
gleiche Endanweisung verwendet wird.) 

Oft wird der „Leerbefehl“ CONTINUE einge- 
setzt, um das Schleifenende zu markieren und 
den Code einfacher zu gestalten. CONTINUE 
ist ein FORTRAN-Befehl, der keine Wirkung 
hat und an jeder beliebigen Position eingesetzt 
werden kann. Jede DO-Schleife muß normaler- 
weise mit einem eigenen CONTINUE abge- 


schlossen sein. Das vorige Beispiel sieht dann 
in ausführlicher Schreibweise so aus: 
DO 101 | = 1,20 
DO 100. J = 1,30 
ARR(I,J)=0 
100 CONTINUE 
101 CONTINUE 


Damit FORTRAN-Programme generell über- 
sichtlicher werden, verlangen einige Program- 
mierer sogar, daß alle DOs, IFs und GOTOs mit 
einem CONTINUE abgeschlossen werden. 
Das speziell für Mathematik ausgelegte 
FORTRAN besitzt Anweisungen, die beson- 
ders gut für den Umgang mit Zahlenarrays ge- 
eignet sind. So kann mit einem einzigen 
READ- oder WRITE-Befehl ein ganzes ein- 


Wurzelziehen 


EIN FORTRAN PROGRAMM, DAS SETS VON 
DREI WERTEN A,B,C, LIEST, DIE DIE 
KOEFFIZIENTEN DER QUADRATISCHEN 
GLEICHUNG A*X**2+B*X+C-0 ÜBER DIE 
ÜBLICHE FORMEL DARSTELLEN 
FUNCTION DISCR(A,B,C) 
DISCR=B*B-4.0*A*C 
RETURN 
END 
SUBROUTINE SOLVE(A,B,C,X1,X2,NROOT) 
D=DISCR(A,B,C) 
ZWAR LIESSE SICH HIER EIN 
ARITHMETISCHES IF 
EINSETZEN, DOCH IST ES NICHT 
EMPFEHLENSWERT 
IF (D.GE.0.0)GOTO 100 
DA D UNTER NULL LIEGT, IST DIE WURZEL 
KOMPLEX 
NROOT=0 
xX1=0.0-B/(2.0*A) 
X2=SOR(ABS(D)) 
GOTO 300 . 
100 IF (D.GT.0.0)GOTO 200 
C DIST NULL, DAHER GLEICHE WURZELN 
NROOT=1 
X1=0.0-B/(2.0*A) 
xX2=X1 
GOTO 300 
C DIST POSITIV, DAHER ZWEI WURZELN 
NROOT=2 
200 X1=(0.0-B+SQRT(D))/2.0*A 
X2=(0.0-B-SORT(D))/2.0*A 
300 RETURN 
END 
C ERST DIE ANZAHL DER SETS LESEN 
C READ(2,10)NVAL 
C ÜBERSCHRIFTEN ANZEIGEN 
WRITE(3,11) 
DO 500 L=1, NVAL 
C DREIWERTE LESEN UND PRÜFEN, OB SIE 
C GEEIGNET SIND 
100 READ (1,12) A,B,C 
IF (A.EQ.0.0) GOTO 500 
C DIE WERTE SIND GEEIGNET, DAHER 


BASILDIE 


FRRARER) 


90 


oder zweidimensionales Array gelesen oder 
geschrieben werden, wobei FORMAT den Auf- 
bau jeder Zeile oder jedes Datensatzes angibt. 
Zum Beispiel: 

DIMENSION IARR1(20) 


WARITE(1,10)IARR1 


veranlaßt die Ausgabe des gesamten Inhalts 
von IARR1 (20 Ganzzahlen). 

10 FORMAT (2014) 
erzeugt 20 vierstellige Ganzzahlen in einer 
Zeile; 

10 FORMAT (I4) 


erzeugt eine Ganzzahl per Zeile; 
10 FORMAT (514) 


C SUBROUTINE AUFRUFEN 
CALL SOLVE(A,B,C,X1,X2, NROOT) 
IF (NROOT.GT.0)GOTO 200 
C KOMPLEXE WURZELN 
WRITE (1,13) A,B,X1,X2 
GOTO 500 
200 IF (NROOT.GT.1)GOTO 300 
C GLEICHE WURZELN 
WRITE (1,14) A,B,C,X1,X2 
GOTO 500 
C ZWEI WURZELN 
300 WRITE(1,15)A,B,C,X1,X2 
GOTO 500 
C _UNGÜLTIGE WERTE FÜR A, B UND C 
400 WRITE(1,16)A,B,C 
500 CONTINUE 
STOP 
C FORMAT BEFEHLE 
10 FORMAT (l4) 
11. FORMAT(1H ‚8%,1HA,8X,1HB,8X,1HC,8X, 
AHTYPE,8X,2HX1,8X,2HX2) 
12 FORMAT(1H ‚3F7,2) 
13 FORMAT(1H ‚4%,3(F7.2,2X),4X,7HCOMPLEX, 
X,F7.2,3X,F7.2) 
14 FORMAT(1H ‚4%,3(F7.2,2X),4X,5HEQUAL3X, 
F7.2,3XF7.2) 
15 FORMAT(1H ‚4X,3,(F.2.2X),4%, 
7HUNEQUAL,X, 
F27.2.3X,F7.2) 
16 FORMAT(1H ‚4%X,3,(F7.2,2X),4X,7HINVALID) 
END 


Durchschnittsberechnung 
EINE FORTRAN-FUNKTION, DIE 
DEN DURCHSCHNITT 
(IN REELLEN ZAHLEN) EINES STETS MIT N 
GANZZAHLEN 
DES GANZZAHLENARRAYS IARR BERECHNET 
FUNCTION AVGE (IARR,N) 
DIMENSION IARR (N) 
SUM=0 
DO 100 I=1,N 
SUM=SUM+FLOAT (IARR(I)) 
100 CONTINUE 
AVGE=SUM/FLOAT (N) 
RETURN 
END 
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Da FORTRAN keinen 
fest definierten Befehl 
für das Schleifenende 
besitzt, können mehrere 
Schleifen mit der glei- 
chen Endanweisung ab- 
geschlossen werden. 
Damit läßt sich sehr 
kompakter Programm- 
code schreiben (siehe 
Bild). In BASIC ist der 
gleiche Ablauf zwar 
weniger komprimiert, 
aber dafür auch weit 
leichter zu lesen. 


100 FOR I=1 TO 20 
110 FOR J=1 TO 30 
120 LET A(l,J)=0 
130 NEXT J 

140 NEXT I 


Das letzte 
Element 


vier Zeilen mit je fünf Zahlen und 
10 FORMAT (20A1) 


einen String von 20 Zeichen in einer Zeile. 
Beim Einlesen oder Ausgeben von zweidi- 
mensionalen Arrays entsteht oft ein Problem, 
da FORTRAN, im Gegensatz zu anderen Spra- 
chen, zuerst die Spalten und dann erst die Zei- 
len speichert. Wenn Sie hier nicht aufpassen, 
entsteht eine versetzte Version des Arrays. Es 
gibt jedoch eine spezielle Form der DO- 
Schleife, die „implizierte Schleifenanweisung‘“, 
die sich gut für die Arbeit mit einem Teilarray 
eignet. Implizierte Schleifenanweisungen wer- 
den mit dem Variablennamen in die Befehle 
READ oder WRITE eingefügt. Die folgenden 
Zeilen füllen beispielsweise das Stringarray 
IARR2( 10,20) mit zehn Strings zu je 20 Zeichen: 
DO 100 I=1,10 
READ (1,10) (IARR2(,J), J=1,20) 
10 FORMAT (20A1) 
100 CONTINUE 


FORTRAN bietet die Möglichkeit, mit Subrouti- 
nen zu arbeiten — wenn auch mit einigen Ein- 
schränkungen. Die Subroutinen sind völlig un- 
abhängig und arbeiten hauptsächlich mit loka- 
len Variablen. Sie werden entweder an das 
Ende des Hauptprogramms angehängt oder 
separat geschrieben und compiliert. Subrouti- 
nen können durchaus die gleichen Zeilennum- 
mern einsetzen, die auch das Hauptprogramm 
verwendet (in den meisten Fällen sogar die 
gleichen Variablennamen). Einfache Parame- 
ter werden durch Wertaufruf übergeben, wo- 
bei Werte, die von der Subroutine geändert 
wurden, auch die entsprechenden Variablen 
des aufrufenden Programms beeinflussen. 
Globale Variablen, auf die sich Subprogramme 
und Hauptprogramm beziehen, müssen in bei- 
den Programmodulen mit COMMON dekla- 
riert werden. Es lassen sich eine ganze Reihe 
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von COMMON-Blöcken anlegen und mit Na- 
men versehen, doch meistens genügt ein ein- 
ziger Block dafür. 

Die Variablen der COMMON-Anweisungen 
müssen einander in Typ und Gesamtlänge ent- 
sprechen. So könnte das Hauptprogramm bei- 
spielsweise den Befehl 

COMMON 11,12,13 


enthalten und die Subroutine 
COMMON |(3) 


In beiden Fällen wird der Speicherplatz auf 
die gleiche Weise eingesetzt, wobei die Para- 
meter sich im ersten Fall auf Ganzzahlenvaria- 
blen beziehen und im zweiten Fall auf drei Ar- 
rayelemente des gleichen Typs. 

Ein typischer Subroutinenaufruf sieht folgen- 
dermaßen aus: 

CALL SUBNAME(X,Y,I,J) 


wobei die Subroutine mit dem Befehl 
SUBROUTINE SUBNAMEL(A,B,L,M) 


anfängt. (Beachten Sie, daß die Parameter im 
Inneren der Klammern in Bezug auf Anzahl 
und Typ übereinstimmen.) 

Die Anweisung RETURN gibt die Steuerung 
an das aufrufende Programm zurück (in einer 
Subroutine können sich mehrere RETURNS be- 
finden). Eines der RETURNs sollte jedoch in 
jedem Fall ausgeführt werden — unabhängig 
von dem Weg, der durch die Subroutine führt. 
In Subroutinen wie im Hauptprogramm muß 
der letzte Befehl immer ein END sein. 

Bei der Parameterübergabe ist es in be- 
stimmter Hinsicht möglich, die Größe eines Ar- 
rays dynamisch zu verändern. Obwohl das in 
einer interpretierten Sprache wie BASIC leicht 
auszuführen ist, gibt es diese Möglichkeit in 
compilierten Sprachen nur selten, da der Spei- 
cherplatz bei der Compilierung fest zugeord- 
net wird und nicht erst mit Geschwindigkeits- 
verlust beim Ablauf des Programms. 

Da Subroutinen nur einen einzigen Wert zu- 
rückliefern, können sie auch (wie in PASCAL) 
als FUNCTION angelegt werden. Derartige 
Subprogramme werden, wie normale Subrouti- 
nen, separat geschrieben, beginnen aber mit 
der Anweisung FUNCTION. Vor dem RETURN 
sollte eine Zuweisung auf den Funktionsna- 
men liegen. Der Funktionsname selbst be- 
stimmt den von der Funktion zurückgelieferten 
Datentyp, wobei die Vorgaben der vom System 
vorgegebenen Variablennamen angewandt 
werden. Diese Anforderung läßt sich zwar um- 
gehen, sollte aber wenn möglich beibehalten 
werden. Das Hauptprogramm setzt die defi- 
nierten Funktionen auf die gleiche Weise ein 
wie die normalen Systemfunktionen. Der Funk- 
tionsname (mit zugehöriger Parameterliste) 
kann dabei selbstverständlich in jedem Aus- 
druck erscheinen, in dem eine Variable dieses 
Typs auftreten darf. 
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Sieg oder 


Platz? 


Die meisten Laien am Rennplatz schließen ihre Wetten auf gut Glück 
ab. Professionelle Spieler und Buchmacher nutzen dagegen Methoden 
der Statistik und der Wahrscheinlichkeitsrechnung. 


E: Buchmacher ist der Mittelsmann zwi- 
schen einzelnen Wettern, bei dem sich die 
Gewinnvorhersage der Wetter in barer Münze 
niederschlagen. An der Quote eines Pferdes 
kann man sehen, wieviel Geld darauf gesetzt 
wurde. Wenn viele Leute ihren Einsatz auf 
denselben Renner wetten, ist die Quote nied- 
rig. Natürlich werden die Quoten so festge- 
setzt, daß für den Buchmacher stets ein Ge- 
winn übrigbleibt, unabhängig vom Rennergeb- 
nis. Mit diesem Gewinn wird die Dienstlei- 
stung des Buchmachers von den Wettern ge- 
rechterweise bezahlt. 

In den letzten zehn Minuten vor einem Pfer- 
derennen geht es am Wettmarkt besonders 
hoch her. Und das nicht nur auf der Rennbahn 
selbst; in den lokalen Büros der Buchmacher 
kann ein Spieler seine Wette auch aus der 
Ferne plazieren. 

Am Rennplatz selbst gibt es Schwierigkeiten 
bei der Einführung neuer Technologien. An- 
ders ist das bei den lokalen Buchmachern im 
traditionellen Land des Pferderennens. Spe- 
ziell die englischen Buchmacher-Ketten erhof- 
fen vom Computereinsatz Effektivität und mehr 
Profit. Ladbrokes, eine der größten Buchma- 
cherfirmen Englands, nutzt den Computer spe- 
ziell für das Wetten auf Kredit. Die Wetten aller 
Kreditkunden werden über dezentrale Cro- 
memco-Microcomputer erfaßt, die mit einem 


zentralen Harddisk-Speicher verbunden sind. 
Zum Tagesabschluß werden die Daten auf 
einen IBM-Großrechner übertragen, der auch 
die Rennergebnisse des Tages kennt. Die Ge- 
winnermittlung für Sieg-, Platz- oder Kombina- 
tionswetten erfolgt dann vollautomatisch. Ein- 
mal in der Woche werden die Kundenkonten 
auf den neuesten Stand gebracht und Schecks 
bzw. Rechnungen erstellt. 


Wetten hat Stil 


Große Buchmacherfirmen sind längst aus den 
muffigen Hinterzimmern in großzügige Büro- 
etagen umgezogen. Das Filmklischee stimmt 
schon lange nicht mehr. Dazu paßt auch der 
verstärkte Computereinsatz für die unter- 
schiedlichsten Zwecke. Bei der Firma Mecca 
Bookmakers ist man überzeugt, daß die sin- 
kenden Computerkosten das Geschäft um 
mannigfaltige Möglichkeiten bereichern wer- 
den. Eingabeterminals an den wichtigsten 
Wettplätzen könnten etwa Informationen über 
die Vorlieben der Wetter oder die beliebtesten 
Wett-Kombinationen und die Wünsche der 
Spieler erfassen, aber auch für die interne Lei- 
stungsstatistik nutzbar gemacht werden. 

Vor dem Hintergrund einer gesetzlichen Li- 
beralisierung des Buchmachergewerbes in 
England erhofft man sich bei Mecca durch 


Die großen Buchma- 
cher-Ketten in England 
nutzen die neuen Tech- 
nologien zur Darstel- 
lung vielfältiger Infor- 
mationen über das 
Renngeschehen. Der 
Computer dient aber 
auch dazu, die Ge- 
wohnheiten und Vorlie- 
ben des Wett-Publi- 
kums zu ermitteln. So- 
gar die Ermittlung der 
Gewinnquoten und die 
Erfassung der Mitarbei- 
terleistung erfolgt be- 
reits rechnergesteuert. 
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computergestützte Marktforschung eine er- 
hebliche Ausdehnung des Geschäfts und da- 
mit einen weiteren Aufstieg im expandieren- 
den Bereich der Freizeitindustrie. Schon heute 
wird der Großrechner der Firma für die grafi- 
sche Darstellung von Informationen über 
Renn- und Sportereignisse genutzt, die in 
Farbe zu mehreren lokalen Wettbüros übertra- 
gen werden. Aber auch die finanziellen Ergeb- 
nisse der einzelnen Büros und der gesamten 
Firma werden vom Rechner überwacht. Schnelle 
Erfolgskontrolle wird zum Kinderspiel, und 
Entscheidungen können schneller mit guter 
Begründung getroffen werden. 


Die Formel für Erfolg 


Bei Buchmachern, die nicht direkt auf der 
Rennbahn arbeiten, kann auf die Reihenfolge 
der zwei oder drei ersten Pferde beim Einlauf 
gewettet werden. Der Gewinn aus einer sol- 
chen Wette wird mit einer komplexen Formel 
berechnet. Früher wurden zur Abschätzung 
der Gewinnchancen vom Buchmacher einfach 
nur die Einzelquoten der Pferde miteinander 
multipliziert. Unwägbarkeiten entstanden da- 
bei durch die noch in letzter Minute schwan- 
kenden Quoten — oft ging die Rechnung nicht 
auf, die Buchmacher mußten Verluste hinneh- 
men. Speziell beim Sieg durch Favoriten gab 
es Probleme. 

Man brauchte also eine Formel, mit der die 
Gewinnquoten so abzuschätzen wären, daß für 
die Buchmacher ein Mindestgewinn von 20 
Prozent übrigblieb. 1977 war man in der Lage, 
diese Formel zu programmieren. CSF, die 
Wette auf die Reihenfolge der beiden ersten 
Pferde, wurde eingeführt, und 1981 folgte „Tri- 
cast" (für drei Pferde). Die mit der Formel er- 
mittelten Ergebnisse werden von den beiden 
wichtigsten Buchmacher-Vereinigungen über- 
wacht. Das in BASIC geschriebene Origi- 
nalprogramm wird ständig an aktuelle Verän- 
derungen der Wett-Gewohnheiten und andere 
Randbedingungen angepaßt. 

Die spektakulärste Änderung der Formel 
wurde 1982 durch den „Little Owl“-Skandal ini- 
tiiert: Bei einem Hindemisrennen gab es den 
Favoriten Little Owl, der eine Quote von 11:4 
hatte. Ein weiterer Favorit wurde mit 5:2 gehan- 
delt, ein krasser Außenseiter hatte die Quote 
66:1. Aus irgendwelchen Gründen wurde der 
Favorit zu Anfang des Rennens gebremst, so 
daß das Pferd mit der Quote 5:2 und auch der 
Außenseiter vor dem Favoriten das Ziel er- 
reichten. Einige Buchmacher gingen nach die- 
sem ungewöhnlichen Rennausgang in Kon- 
kurs. Manche vermuteten professionell vorbe- 
reiteten Betrug. Um das Risiko von Überra- 
schungsergebnissen bei einer kleinen Zahl 
startender Pferde zu verringern, wurde darauf- 
hin der „Harmonische Faktor" in die Gewinn- 
formel eingeführt. Dieser Faktor senkt die 
Quoten krasser Außenseiter, die Quote der Fa- 


Unter den Bi hnskhem auf dem Rennp, 
hat sich über Jahre hinweg ein kompl xes Sy- 


das sie vor finanziellen Verlusten 
England, dem klassischen Land < 
sports, gibt es zwei deutlich unterscheidbare 
Gruppen von Buchmachem: Nah beiden 
Pferden findet man die „großen“, die Wetten 
nur von ihnen gut bekannten 
gennehmen und auf Barzahlung des 
zes verzichten können. Die zweite rum 
steht mitten im Publikum und schließt 
über kleinere Beträge ab. Dabei geht das 
Geld bar von Hand zuHand. 

In den letzten Minuten vor dem Rennen 
wird es hektisch — der Markt explodiert, in 
kürzester Zeit fließen Zehntausende vn 
Pfund Sterling hin und her. Innerhalb dieser 
Zeit verständigen sich die Buchmacher mit 
ihren Helfern durch eine spezielle Zeichen- © 
sprache. 

Eine wichtige Funktion dieser Helfer ist _ 
auch das Absichern von Wetten. Wennein 
Buchmacher merkt, daß er sich beim Ab- 
schließen von Wetten übernommen hat und 
bei einem bestimmten Pferd große Verluste 
machen kann, schließt er auf eben dieses 
Pferd bei einem anderen Buchmacher eine 
Wette ab. Gewinnt das Pferd später tats 
lich, kann er einen Teil seiner Verluste au; 
den Buchmacherkollegen abwälzen. 

Im hektischen Geschehen des Rennp 
wird der Computer wohl kaum verwendbar 
sein, es geschieht einfach alles vielzu 
schnell. Natürlich ließe sich die Tätig 

eines Buchmachers durch ein Programm si- 
mulieren. Nur bei der Dateneingabe könn 
der Computer seinem menschlichen Vorbil 
nicht das Wasser reichen: Beim Tempo-W: t 
bewerb liegen die Buchmacher immer noch . 
um Längen vor dem Computer. | 


voriten wird dagegen erhöht. Mit der alten For- 
mel hätte es bei der richtigen Vorhersage des 
oben beschriebenen Rennens eine Gewinn- 
ausschüttung von 14l:1 gegeben, mit der 
neuen Formel beträgt sie nur noch 14:1. 

Computer bieten lokalen Buchmachern um- 
fangreiche Möglichkeiten zur Analyse auf 
Schwachpunkte im Geschäft — richtige An- 
wendung dieses Werkzeuges steigert also den 
Profit, indem unnötig hohe Risiken gemieden 
werden können. 

Sicher ist, daß es für den Wetter kein Com- 
puterprogramm geben kann, mit dem er über 
Nacht reich wird oder den Buchmacher über 
die Löffel barbieren kann. Eine gewisse Unter- 
stützung kann der Rechner aber auch dem 
Wetter bieten. 

Eigentlich ist das Verlieren des Spielers auf 
lange Sicht unvermeidlich — dafür sorgt neben 
dem Buchmacher-Gewinn auch die Steuer. 
Trotzdem gibt es Profis, die vom Wetten leben. 
Durch genaue Kenntnis ihres Metiers streichen 
sie als Gewinn ein, was weniger kundige Wett- 
Freunde einsetzen und verlieren. Das ist je- 
doch kein müheloses Geschäft. Die sorgfältige 
und ausdauernde Analyse der Rennergeb- 
nisse ist Voraussetzung des Erfolgs. 

Chancen bieten sich, wenn das Feld nur mit 
zwei oder drei wirklich erfolgversprechenden 
Pferden besetzt ist. Ein Pferd mit guten Ge- 
winnaussichten ist schwierig zu finden, weil 
ausgesprochen viele, unter Umständen wider- 
sprüchliche Faktoren wie die Kondition des 
Pferdes, der Rennplatz, der Jockey und natür- 
lich auch die Wetten anderer Spieler berück- 
sichtigt werden müssen. Und oft bleiben auch 
anderen die Qualitäten eines Pferdes nicht 
verborgen, was zu sinkenden Quoten führt. 


Mit Pferdeverstand 


Erfolgreiche Wetter suchen Pferde mit guten 
Chancen, auf die aber wenig gesetzt wird. Sol- 
che Gelegenheiten sind schwer zu erkennen 
und nicht gerade häufig. Profis müssen also 
strenge Auswahlkriterien anlegen. 

Bei einem Minimum von sechs Läufen wäh- 
rend eines Renntages ist einfach nicht genug 
Zeit, ein festes Berechnungsschema für diesen 
Zweck anzuwenden. In einem Buchmacher- 
büro können Spieler auf Läufe an bis zu sechs 
verschiedenen Orten gleichzeitig wetten. Viel 
mehr als eine grobe Abschätzung ist bei die- 
ser Flut von Möglichkeiten und Kombinationen 
selten durchführbar. Ganz ohne Methode und 
nur mit dem Vertrauen auf das große Glück ist 
Verlust allerdings ziemlich sicher vorprogram- 
miert — wie bei jedem Geschäft. 

Mit einem Wett-Programm kann das anders 
werden. Das Programm zwingt den Spieler zu 
einer gewissen Auswahl und verhindert da- 
durch unkontrollierte Einsätze, die so oft Scha- 
den anrichten. Was vielfach als Mangel ange- 
sehen wird — die relativ lange für die Daten- 


eingabe benötigte Zeit, die für ein einzelnes 
Rennen bis zu einer halben Stunde betragen 
kann —, dient hier als wirkungsvoller Schutz 
vor Unbedachtsamkeit. Das Wetter muß ent- 
scheiden, welches Rennen die besten Mög- 
lichkeiten bietet. Sehr günstig ist es, nur in 
Rennen mit zehn oder weniger Pferden zu set- 
zen. Dadurch wird die Dauer der Datenein- 
gabe reduziert, und die Übersichtlichkeit wie 
die Gewinnchancen steigen. 

Trotz allen technischen Fortschritts ist der 
Computer-Pferdewetter für den Buchmacher 
keine Bedrohung. Wettprogramme werden so- 
wieso nur von eher bedächtigen und vorsichti- 
gen Kunden eingesetzt. Eine wirklich durch- 
greifende Veränderung in den Wettgewohn- 
heiten des breiten Publikums würde den Buch- 
machern nicht lange verborgen bleiben und 
sie zu geeigneten Gegenmaßnahmen veran- 
lassen. Daß der Buchmacher seine Prozente 
am Wett-Kuchen nicht einbüßt — zumindest 
darauf kann man sicher wetten. 
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Solche Tabellen werden 
regelmäßig in speziel- 
len Sportzeitschriften 
veröffentlicht, die zur 
Pflichtlektüre jedes 
Wettbegeisterten gehö- 
ren. In diesem Beispiel 
werden die Erfolge 
eines bestimmten Ge- 
stüts über ein Jahr hin- 
weg analysiert. 


Besitzer — Hindernisrennen 


Starter Starts Sieger Siege summe 


28 133 12 183 350 
6 142 500 

69 127 413 
86 100 
70 000 
56 900 
56 500 
56 450 
55 500 
48 700 
39 800 
38 600 
37 500 
36 600 
36.050 
35 600 
28 600 
27.000 
25 750 
25 100 
24 450 
24 000 
23 000 
22 250 
22 250 
21 400 
20 900 
20 900 
20 600 
20 300 
19 550 
19 200 
19 200 
18 100 
17 800 
17 600 
17 500 
17 100 


Stall Steintor 
W.Kaul 

Gestüt Dachsborn 
Gestüt Sybille 
L.Swärd/Schweden 
SPFZ Baden-Baden 
Stall Annelie 

Stall Windhof 
Stall Margarethe 
Gestüt Pfauenhof 
Gestüt Idee 

Stall Steigenberger 
E.Stoltefuß 

Stall Barbarossa 
Dr.A.Szemes 
K.A.Staudt 

Gestüt Falkenstein 
H.Bölter 

Frau M.Bollow 
Frau L.Neumayer-Kieffer 
Stall Berbuk 

Gestüt Birkenhof 
R.Klostermann 

Gestüt Harzburg 

Frau K.Degott 

M.Renner 

Stall Bacchant 

Frau H.Rotering 

Stall Caligula 

K.Witte 

B.Mock 

K.Lau 

Stall Marienhof 

A.Heyer u.F.Steinebach 
Stall Moulin Rouge 
J.Lißmann 

Gestüt Rodau 

G.Spina 

Stall Marwin 
G.Deuerling u.F.Rühl 
Stall AGAU 

H.Hasler 

R.Jösch 


16 400 
16 200 
15 300 
14 850 
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16 700 New Commander 


Erfolgreichstes Pferd mit DM 


Constantin 28500 
Ottilie 142 500 
Parallele 41 770 
Black Bottom 47500 
Ormus 70000 
Park Rainbow 27000 
Sorbonne 56 500 
Ditano 22 100 
Stragon 55 500 
Juliano 44 300 
Hakimi 39 800 
Toscalon 38 600 
Ledru-Rollin 37 500 
Manet 21500 
Feuerschuh 20 700 
Sonnenbalz 35 600 
Pikante 28 600 
Santella King 13 600 
Tanjanka 21 900 
Winterkönig 25 100 
Narew 15 300 
Golden Berry 23 000 
Colonius 12 300 
Ahnfrau 14400 
Quattro Cento 14250 
Dolly Dollar 9600 
Aprillove 12500 
Pontal 20 900 
Around 20 600 
Virginia Lake 12500 
Oranje Manege 8200 
Leones (H) 19 200 
Massliebchen 6900 
Fernandel 18 100 
Wunsch 17800 
Amicus 17600 
Rican 17500 
Ensor 17100 
16 300 
16 400 
8500 
15 300 
14 850 


Wittelsbacher 

Erbprinz. 
Glückspfennig 
Assam 
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stimmt wird. In Zeile 6808 wird eine Zufallszahl 


z® 5? Pe er 


Durch die erste. ME sroutine wird mit dem 


© _ Femrohr ein Retfungsboot gesichtet. Im Boot 
auch kleinere ie die Han- ‚befinden sich vier Personen und eine große Ki- 


delsreise i e Neue Welt 
beeinflussen können. Jetzt gilt es, 
Schiffbrüchige aus einem 
ungsboot an Bord zu holen 
nd mit der Pest fertigzuwerden. 


s gibt insgesamt sechs schwerwiegendere 

Ereignisse, von denen jedes einmal pro 
Reise eintreten kann. Eines dieser Ereignisse 
wird am Anfang jeder Woche per Zufall ausge- 
wählt. Ist das gewählte Ereignis im Verlauf der 
Reise bereits eingetreten, wird für diese Wo- 
che keine weitere Wahl getroffen. 

In Zeile 49 wird ein Auay M() DIMensioniert, 
in dem vermerkt wird, welches der Ereignisse 
bereits eingetreten ist. Danach verzweigt das 
Programm durch GOSUB in Zeile 870 zur Unter- 
routine bei Zeile 6500, in der ein Ereignis be- 


en 


Zwischenfälle gibt, besteht somit eine 60pro- 


‚zentige Chance für ein unvorhergesehenes Er- 
‚eignis: Bei den Zahlen 7, 8, 9und 10 geschieht 


nichts. Sie können die Wahrscheinlichkeit vari- 
ieren, indem Sie den Zufallsfaktor in dieser 
Zeile ändern. 

Ändem Sie beispielsweise Zeile 6508 in 


ei 


X=INT(RND(1)*8)+1 
wird die Wahrscheinlichkeit auf 75 Prozent er- 
höht. Beachten Sie jedoch, daß sich, nachdem 
ein Ereignis gewählt und dies in M() verzeich- 
net wurde, die Wahrscheinlichkeit in der näch- 
sten Woche auf 62,5 Prozent reduziert. Beim 
dritten Ereignis sind es sogar nur noch 50 Pro- 
zent. Die Wahrscheinlichkeit sinkt also, je 
mehr Zwischenfälle bereits eingetreten sind. 

Die dem Ereignis entsprechende Unterrou- 
tine wird mitte 
wie bei den geringfügigeren Ereignissen. IstX 
(die Zufallszahl) gleich |, s Programm 
zur ersten Zeilennummer der hinter der Änwei- 
sung befindlichen Liste verzweigt (Zeile 
6530=das Sichten eines Rettungsbootes). Ist 
X=2, wird zur zweiten Nummer verzweigt 
(Zeile 6700=die Pest). In diesem Artikel befas- 
sen wir uns nur mit den ersten beiden größe- 
ren Ereignissen, doch müssen wir die Zeilen- 
nummern der restlichen vier Unterroutinen 
später noch in Zeile 6510 einfügen. 


\.% GOSUB gewählt, genau _ 


ste. Der Spieler muß nun entscheiden, ob er 
sie an Bord nehmen will oder nicht. Wenn ja, 
verlängert sich die Reisedauer um zwei Tage 
und es müssen vier Männer zusätzlich emährt 
werden. Andererseits brauchen Sie vielleicht 
die Stärke der vier zusätzlichen Männer. Zuerst 
überprüft das Programm über das erste Ele- 
ment von M() in Zeile 6535, ob das Boot zuvor 
bereits gesichtet wurde. Ist es auf 1 gesetzt, ist 
das Ereignis schon einmal eingetreten, und es 
erfolgt Rücksprung zum Hauptprogramm. Ist 
der Wert 0, setzt Zeile 6540 M(1) auf 1. Wie be- 
reits erwähnt, wird dieser Test vor jedem grö- 
ßeren Ereignis durchgeführt. 

 _InZeile 6876 wird der Spieler gefragt, ob or 
die Schiffbrüchigen aufnehmen will. Zeile 6580 
überprüft, ob der erste Buchstabe der Antwort 
Y oder N ist. Ist die Antwort Nein, nimmteinan- 
deres Schiff die Schiffbrüchigen an Bord, und 
es erfolgt Rücksprung zum Hauptprogramm. 
LisseSR Ei der en die a 


1% 
Zeile 6625 zuerst, "ob die Mannschaft nicht, 
schon komplett ist. Ist dies der Fall (CN=16),. 
ist kein Platz mehr, und die Routine verzweigt 
zum Hauptprogramm. Um festzustellen, ob für 
alle Schiffbrüchigen Platz ist, wird in Zeile 6630 
der Wert von X auf 16 minus CN gesetzt. Da- 
nach wird entschieden, ob alle vier Personen 
aufgenommen werden können (X>3). Trifft 


\ dies zu, werden alle an Bord genommen. Ist X 
‘kleiner als 4, wird dem Spieler mitgeteilt, daß 


nur X Personen aufgenommen werden können. 


Überlebende eingegliedert: 


Die Überlebenden aus dem Rettungsboot wer- 
den dann mittels der Schleife von Zeile 6638 
bis 6697 in das Stärke-/Typ-Array eingeglie- 
dert. Der Wert von X wird auf O gesetzt, um die 
zusätzlichen Mannschaftsmitglieder zu kon- 
trollieren. Mit X_ wird TS(,) überprüft, ob. ein 
Eintrag O ist und somit dort ein neues Mitglied | 
eingetragen werden kann. Wird ein Platz ge- 
funden, wird X um 1 erhöht. Erreicht X den 
Nert 4 Sue: alle Überlebenden ÄSSE 


wird. Reicht der Platz nur für weniger als vier 
Personen, verläßt das Programm die Schleife, 
wenn sie l6mal durchlaufen wurde. Die zusätz- 
lichen Mitglieder werden auch zum Wert von 
CN addiert. Jedem neuen Mitglied wird ein Zu- 


fallswert als Mannschaftstyp und Stärke in 
TS(,) zugeordnet. Der Bereich für den Typ liegt 
zwischen 1 und 5, für die Stärke zwischen 50 
und 99 (gesund oder sehr gesund). 

= Da der - Mann haftstyp der vier Schiffbrü- 


chigen zufällig bestimr nt wird, möglich, 
g rird.ist.es mög 


daß das Schiff nun übe einen Arzt verfügt-Im._ 


=  Rettungsboot befindet s sich auch « eine Kiste > 


 Vorräten. In ‚Zeile ‚6685 wird für. ae ‚der vie ut ie 
Vorratstypen eine Schleife initialisiert und a RER 
u... Zeile 6690 eine Zufallszahl zwischen Ound 19 I an RT iin. 

FI ermittelt, die die Menge des jeweiligen Vorra- Ein von a 
tes angibt. Die Mengeneinheiten, gespeichert 
in U$O), und Vorratsarten werden in Zeile 6692 x j = 
‚ausgegeben. Ist ein Vorratin der aktuellen Wo-- u u Se ze Pu 0 
che zur Neige ‚gegangen, wird in Zeile 6693 . ! & i6, 

' der, Wert von —999 auf O gesetzt, damit der Danach überprüft das Programm, ob ein Arzt 
neue Proviant durch Zeile 6694 aufgenommen an Bord ist. Hierzu wird eine Schleife von 1 bis 
werden kann. 16 verwendet, die das Stärke-/Typ-Array auf 
a m den Wert 2 (=Arzt) durchsucht. Ist. der Arzt 

! ie Pest bricht aus nicht tot (Stärke <> O oder —999), wird X auf‘ O 
m ee — gesetzt. Enthält:X nach; Durchlauf der Schleife‘ 
' Das zweite Hauptereignis, der Ausbruch der den Wert ], ist kein Arzt an Bord. Anschließend 
Pest, wird durch die zweite Zeilennummer der wird überprüft, ob sich Medizin an Bord befin- 

| ONX GOSUB- -Anweisung aufgerufen (Unter- det i m.PA(1) untersucht wird. Ist Medizin 
routine 6700). Das Ausmaß der Krankheit wird vorhanden, wird Y auf 0 gesetzt. Ist Y=1, ist 
durch zwei Faktoren bestimmt: Ist ein Arztan keine Medizin verfügbar. \ 
Bord, und wurde Medizin gekauft oder nicht? In Zeile 6730 wird der Kra Kick 2, 

- ‚Ähnlich der Rettungsboot-Routine wird über- festgelegt. Mit der > in Z=((X+YJ*10)+45 


prüft, ob die Unterroutine bereits einmal aufge- 
rufen wurde (wenn M(2)=-l, dann Rück- 
\ pP! n g 


Abijfi 


gert. Fehlt die Medizin, beträgt ne 


wird berechnet, um Ichen Wert sich die 
Stärke der Männer ws ziert. Sind ar und 
Medizin an Bord, wird die Stärke u rrin- 
ert 15. 


Sind weder Arzt noch Medizin vorhanden, wird 
die Stärke um 25 reduziert. Durch die Zeilen 
6734 und 6736 wird der Spieler über die ent- 
sprechenden Umstände informiert. 


x 


Rz 
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Sind einige Männer bereits sehr ge- 
schwächt, kann sie die Krankheit töten. X wird 
auf 0 gesetzt, um die Verstorbenen zu zählen. 
Eine Schleife von Zeile 6755 bis 6775 durch- 
läuft das Stärke-/Typ-Array und reduziert die 
Stärkewerte der Mannschaft. Doch die Pest be- 
fällt nicht alle Männer. Zeile 6756 generiert 
eine Zufallszahl. Ist sie kleiner als 0.3, wird der 
entsprechende Mann nicht angesteckt. Damit 
hat jeder eine 30prozentige Chance, nicht zu 
erkranken. Die nächste Zeile überprüft, ob 
eine Person bereits tot ist und darum nicht 
mehr erkranken kann. Lebt der Mann, wird die 


Modul acht: 
Zwei Hauptereignisse: 
Dimensionierung des Flag-Arrays 


428 NIMM{SY:REM INDS TO SHOW IF MAJOR EVENTS HAVE B 
EEN DRNE 


Zusatz zum Hauptprogramm 


ara GNSUBESAA:REM GOTN MAJOR CONTINGENCY 


Auswahlroutine der Hauptereignisse 


eSm@ REM MAJOR CONTINGENC IES 
6593 X=INTERND<1>#1@ +1 
651@ ON x GOSURES3G ‚6708 
6529 RETURN 


Routine der Hauptereignisse 


6532 REM LIFEBOAT 
8535 IFM(1>=1THENRETURN 
6536 PRINTCHR$(147) 
6540 MCı)=l 
essa S$="A LIFEBOAT IS SIGHTED«" :GOSUBSIAQ 
6552 S$="DRIFTING IN THE DISTANCEx":GOSUB9138 
6554 PRINT:GOSUBI2AA 
6556 S$="THROUGH THE TELESCOPE YOU SEEx":GOSUBSIAA 
6558 S$="THAT IT CONTAINS:R#":GOSUBI1AO 
6564 PRINT:GOSUBS2AA 
6562 S$="4 PEOPLE#":GOSUB91AQ 
GOSUBS298 
S$="AND A LARGE CHEST!#":GOSUBS1OR 
PRINT: GOSUBS298 
S$="IF YOU CHANGE COURSEx":GOSUBS1O8 
S$="TO PICK THEM UPx":GDSUBI198 
S$="IT WILL TAKE YOU TWO EXTRA DAYS«":GOSUBSI 


PRINT: GOSUBS2aQ 
S$="DO YOU WANT TO PICK THEM UP (Y/NIx":GOSUB 


INPUTIS: IS=LEFTSCI$, 1) 
IFIS<>"Y"ANDIS< > "N" THENGS78 
IFI$S="Y"THENGSEDA 
PRINT: GOSUB3288 
SF="THE LIFEBOAT DISAPPEARS....%":GOSUBS1AA 
PP INT: GOSUBS2229 
S$=K$:G0SUBI19A 
GETI1$: IFT$=""THENSSS6 
RETURN 
PRINT: GOSUBS208 
EW=EW+2/7 
IFCN< >16 THENGS3Q 
Ss="YOaU CAN'T PICK THEM UPx":GOSUBS1AA 
S$="YOU HAVE NO RODM DON THE SHIP#«":GOSUBS1B8 
GOTO&ESSI2 
K=16-CN5 IFX>3THENGB3S 
S$="YOU ONLY HAVE ROQOM FOR+":GOSUBSIAA 
® PRINTX: "MORE PEOPLE ON THE SHIP" 
PR INT:GOSUBS2aQ 
S$="YDU PICK UP:x":GOSUBS1AB 
x-a 
FORT=1TDI16 
IFTSCT,19< >ATHENGE?7I 
K=Xtl 
IFX 4 THENT=16:G0T06673 
D8 CEN=CN+1 
TS<T,1)=1INTERNDC1IKSIHI 
TS<(T,2)=INTCRND<(1)459) +58 
PRINT"I1 "3C$CTSCT,1) 
NEXT 
PR INT:GOSUBI20A 
S$="THE CHEST CONTAINS: x" :GOSUBS1A8 
FORT=1T04 


Stärke um den Wert von Z reduziert, und es 
wird überprüft, ob er nach dem Abzug gestor- 
ben ist (Stärkewert kleiner als O0). In diesem 
Fall wird der Wert auf 999 gesetzt und der Wert 
von X um l erhöht. War Medizin an Bord (Y=0), 
wird der Vorrat halbiert und auf die nächste 
volle Flasche gerundet. Ist durch die Epidemie 
niemand gestorben (X=0), erfolgt Rücksprung 
zum Hauptprogramm. Ansonsten wird der 
Spieler über die Verluste informiert. 

Im nächsten Artikel befassen wir uns mit 
weiteren Ereignissen auf der Reise, und es 
gibt ein Problem mit der Ruderanlage. 


8698 X=INTCRNO<CIYKIA)+1D 

6692 PRINTXFUSCT)E"S OF "zPSCT) 

6693 IFPA(T)=-999THENPA(T)=D 

6694 PACTI=PACTI+K 

6695 NEXT 

6699 GOTASSS2 

6700 REM PLAGUE STRIKES 

6705 IFM(2)=1THENRETURN 

6786 PRINTCHRS$(147) 

8710 Mi23=1 

E7I2 S$="A PLAGUE STRIKESK":GOSUBI1AA 
6714 PRINT:GOSUBI298 

B7IE x=1 

6718 FORT=1TD16 

872@ IFTSCT,1)=2ANDTSCT,2I< YAANOTS(T,2ICY)-SIITHENK 
=9:T=16 

6722 NEXT 

6724 Y=1 

6726 IFOACII<CYAANDOACII<CY-IAITHENY=@ 
6738 Z=i(x+Y)x1@)+5 

6732 I$="YoU HAVE "5 IFX=@ANDY=ATHENG74A 
6734 IFX=1THENS$S="WITH NO DOCTOR*"GOSUBI1AR: IS="A 
NO" 


. 6736 IFY=1THEN S$=1$+"NO MEDICINEXx":GOSUBS1AOA 


s740 S$="MANY OF THE CREW ARE AFFECTED#":GOSUBI1DO 
6745 PRINT:GOSUBS2RA 

E75 xX=9 

6755 FORT=1TOI6 

6756 IFRND(1)<.3THENG?7S 

6768 IFTS(T,2)=B0RTS(T,2)=-933THENG77S 
6765 TS(T,2)=TS(T,2>-2 

6778 IFTS{T,2)<ITHENTS(T,2)=-999;%=Xt1 
5775 NEXT 

6776 IFY=1THEN6784 

6777 S$="1/2 YOUR MEDICINE IS USED«":GOSUBI1AA 
6778 ..DACI)=INTC(DORAC1I72)+.5) 

6788 PRINT:GOSUBI2AA 

6785 IFX=BTHENG797 

6738 PRINT"AND"XF 

6792 S$="CREW MEMBERS DIE#" 

6794 IFX=1THENS$="CREW MEMBER DIESK«" 
6795 GOSUB9128 

6796 PRINT:GOSUBS298 

6797 S$=K$:G60SUB919D 

6798 GETI$: IFI$=""THENG798 

6799 RETURN 


[BASIC-Dialekte 


Spectrum: ; 
Führen Sie die folgenden Änderungen aus: 


6510 IFX=1 THEN GO SUB 6530 

6511 IFX=2THEN GO SUB 6700 

6536 CLS 

6578 INPUT IS: LETIS=1$ (1 TO 1) 

6596 LETI$=INKEYS: IFIS=*" THEN GO TO 6596 
6706 CLS 

6798 LET I$=INKEYS:: IFI$=*" THEN GO TO 6798 


Acorn B: 
Ändern Sie das Programm wie folgt: 


6536 CLS 
6596 I$=GETS 
6706 CLS 
6798 I$=GETS 


Byte für 


Byte 


Dieser Artikel beschließt unsere Untersuchung der ROM-Routinen des 
Dateisystems für den Acorn B. Wir untersuchen OSFIND und 
verwandte Routinen, mit denen wir Zugriff auf einzelne Bytes haben. 


SFIND wird über die Adresse &FFCE auf- 

gerufen und eröffnet eine Datei, um auf 
einzelne Bytes zugreifen zu können. Dabei ge- 
schieht das gleiche wie bei der Eröffnung 
einer Datei mit OPENOUT, OPENIN oder OPEN- 
UP von BASIC aus. Weiterhin lassen sich damit 
Dateien auf die gleiche Weise schließen wie 
mit CLOSE# in BASIC. Das A-Register gibt an, 
welche Funktion ausgeführt wird, während X 
und Y auf den Dateinamen im Speicher zeigen. 
@A=0: Zeigt an, daß die Datei geschlossen 
werden soll. Das Y-Register enthält dabei die 
„Nummer“, die der Datei bei ihrer Eröffnung 
zugeteilt wurde. Die Angabe der Dateinummer 
0 schließt alle geöffneten Dateien. 
©A=&40: Entspricht dem BASIC-Befehl OPEN- 
IN. Eine Datei wird nur für die Eingabe von Da- 
ten(bytes) geöffnet. 
@A=&80: Entspricht dem BASIC-Befehl OPEN- 
OUT. Eine Datei wird nur für die benötigte Aus- 
gabe geöffnet. 
©A=&C0: Entspricht dem BASIC-Befehl OPEN- 
UP Eine Datei wird für Ein- und Ausgabe eröff- 
net. Wird für Dateisysteme eingesetzt, die Ran- 
dom-Access-Dateien unterstützen. 


A wird auf Null gesetzt 


Falls OSFIND eine Datei nicht eröffnen kann 
(beispielsweise bei einer schreibgeschützten 
Diskette), wird A bei der Rückkehr von OS- 
FIND auf Null gesetzt. Ist die Eröffnung jedoch 
erfolgreich, erhält A eine Dateinummer, die für 
einen späteren Einsatz zur Verfügung steht. 

Alle folgenden Aufrufe von ROM-Routinen 
des Dateisystems haben eine Eigenschaft ge- 
meinsam: Sie verwenden die mit OSFIND er- 
zeugte Dateinummer. 

Die OSARGS-Routine wird über &FFDA auf- 
gerufen und läßt sich für eine ganze Reihe von 
Aufgaben einsetzen. Sie hat eine Eigenheit: Ihr 
Parameterblock von nur vier Byte Länge ist auf 
der Zero Page untergebracht. Das X-Register 
enthält dabei die Adresse des ersten Parame- 
terblockbytes, Y die Dateinummer und A die 
Nummer der Funktion, die ausgeführt werden 
soll. Ein spezieller Fall von OSARGS tritt ein, 
wenn das Y-Register auf Null gesetzt ist. In die- 
sem Fall liefert die Routine Informationen über 
das Dateisystem statt über eine bestimmte Da- 
tei oder veranlaßt, daß alle eröffneten Dateien 
des Dateisystems mit den Daten aktualisiert 
werden, die sich noch in den Dateibuffern be- 


finden. Hier zunächst diese beiden Routinen: 
@Y=0:A=0: Wenn OSARGS mit diesen Para- 
metern aufgerufen wird und das X-Register auf 
einen freien Bereich der Zero Page zeigt, ent- 
hält das Register A nach dem Rücksprung In- 
formationen über das Dateisystem. Dies ist der 
einzige Aufruf von OSARGS, der sich für Cas- 
settensysteme eignet. Unsere Tabelle am 
Rand zeigt, wie die Daten, die nach der Rück- 
kehr in A stehen, interpretiert werden. 
@Y=0:A=255: Bei dem zweiten Aufruf mit Y auf 
Null enthält A den Wert 255. Dieser Aufruf von 
OSARGS stellt sicher, daß alle Daten, die sich 
noch in den Buffern der Maschine befinden, in 
die entsprechenden Dateien geschrieben wer- 
den. Sind keine Dateien eröffnet, kann auch 
keine Aktualisierung stattfinden. 
@Y=Dateinummer: Wenn Y die Dateinummer 
enthält, bestimmt der Inhalt des Registers A, 
welche Funktion ausgeführt wird (siehe unten- 
stehende Tabelle). Der „sequentielle Zeiger" 
auf eine offene Datei informiert das Betriebs- 
system darüber, wohin das nächste Byte ge- 
schrieben oder von wo es abgerufen werden 
soll. Der Zeiger läßt sich daher von der BASIC- 
Funktion PTR# und auch von diesen Routinen 
ändern. Die Daten werden im Parameterblock 
auf der Zero Page gespeichert, wobei das LSB 
in der Adresse (X+0) untergebracht ist. Daten, 
die OSARGS aus dem Dateisystem liest, wer- 
den entsprechend in diesem Parameterblock 
zwischengespeichert. 


Inhalt des R 
R-Registers Beschreibung 


Die aktuelle Position des sequentiel- 
len Pointers der im Y-Register 
gebenen Dateilesen 


Den Parameterbockwer 
ng ntiellen Pointer schreiben. 
em Befehl PTR#n-Wert 


i (deren Nummer 
steh auf Aa Speiche iu 
tualisieren Be 


Aus der Beschreibung wird deutlich, warum 
der Parameterblock von OSARGS sich auf der 
Zero Page befinden muß: Für die Adresse steht 
nur das X-Register zur Verfügung. 

Mit den Routinen OSBGET und OSBPUT wird 


1753 


1754 


ein Byte aus einer offenen Datei gelesen oder 
dorthin geschrieben. Der Aufruf von OSBGET 
erfolgt über &FFD7. Dabei wird das Y-Register 
mit der von OSFIND angelegten Dateinummer 
geladen und über den Aufruf von &FFD7 ein 
Byte von der aktuellen Position des sequentiel- 
len Pointer gelesen und in A gespeichert. 

OSBPUT ist die Umkehrung dieses Vor- 
gangs. Die Routine schreibt ein Byte an die Po- 
sition der Datei, auf die der sequentielle Poin- 
ter zeigt. Das Byte, das geschrieben werden 
soll, wird dafürin A gespeichert und die Datei- 
nummer in Y. Der Aufruf von &FFD4 führt die 
Routine aus. Das folgende Modul zeigt, wie 
OSBPUT ein einzelnes Byte speichert. 

LDA #&80 / Dateieröffnung vorbereiten 

LDX #name MOD 256 

LDY  #name DIV 256 

JSR OSFIND /Datei öffnen 

STA &71 / Dateinummer speichern 

TAY / und im Y-Register ablegen 

LDA #65 / Das Byte, das geschrieben wer- 


den soll 
JSR OSBPUT / schreiben 
LDA #0 


LDY &71 / Dateischließung vorbereiten 

JSR OSFIND / Datei schließen 

RTS /Ende 
Die OSGBPB-Routine wird über &FFD1 aufge- 
rufen. Sie transferiert Bytegruppen zwischen 
dem Speicher und offenen Dateien und kann 
auch Informationen über das eingesetzte Da- 
teisystem liefern. Wir werden hier jedoch nur 
auf ihre Funktionen bei der Datenübertragung 
eingehen. Die Routine läßt sich nicht mit, Cas- 
settensystemen einsetzen, da sie sich eigent- 
lich nur für den Zugriff auf Random-Access- 


Parameterblock von OSGBPB 


LSB der Anzahl Bytes, Ä 

für oder aus Datei 

Nicht festgelegt 
T. Nicht festgelegt 

MSB der Anzahl der zu bewegenden Bytes 


"LSB der Position des sequentiellen Pointers 
(welche Daten gelesen 
werden sollen) 


Nicht festgelegt 


Nicht festgelegt 
MSB der Position des seq Pointers 


—_ 


—_ 


1 


Dateien vom Maschinencode aus eignet. 

Die vorstehende Tabelle stellt den Para- 
meterblock des Aufrufs dar, auf dessen 
Adresse die Register X und Y zeigen. A gibt 
an, welche Funktion eingesetzt werden soll. 

Bei einem standardmäßigen Acorn B wird 
die Datenadresse vom Inhalt des Bytes l und 4 
des Parameterblocks angegeben. 


10REM disk system only 

20DIM block 20 

30DIM data 100 

40%$data="This is a test program!" 

50 block!i=data:REM address of data to be 
written 

s0block'5=100:REM amount of data to be written 
70block'P=0:REM sequential pointer=O 

80 PRINT "Opening the file for output" 
POYY=OPENOUT<"FILE"D:REM open the file 
100blockK?0=Y% :REM file number 
110xX%=block MOD 256 
120Y%=block DIV 256 
130A%4=1: REM prepare to write data 

140 CALL &FFDi :REM do it 
1S0CLOSE £(block?0) 
160 PRINT "Close the file" 
170 TIME =0: REPEAT: UNTIL TIME=400 

180 PRINT "Opening the file for input" 
190PRINT "Now read the data in!" 
200$data=STRING$(100," "):REM clear data area 
Z10OY%=OPENINC"FILE">:REM open the file up 
220bl ock ?0=Y% :REM file number 
230block!'i=data :REM data address for read 
operation 
240block!5=100 : REM number of bytes 
250blocK?9=0 : REM $equential pointer to 0 
260%X%=block MOD 256 
270Y%=block DIV 256 

280A%4=3: REM prepare to read 
ZF0CALL &FFDi :REM do it 
300CL0OSE£<blockK?0) 
310 PRINT "Close the file again" 

320PRINT $data 
330END 


Es stehen vier verschiedene Übertragungs- 
arten zur Verfügung: zwei Lese- und zwei 
Schreibvorgänge. Je ein Lese- und Schreibvor- 
gang spricht die Daten der Position an, die der 
sequentielle Pointer des Parameterblocks an- 
gibt. Die anderen beiden Routinen ignorieren 
diesen Eintrag und greifen statt dessen auf die 
Position zu, auf die der Pointer gerade zeigt. 
A=]1 schreibt daher Bytes an den im Block an- 
gegebenen Pointer, während A=2 den Pointer 
ignoriert und Bytes an die aktuelle Pointerposi- 
tion schreibt. A=3 liest Daten von der im Block 
angegebenen Position, während A=4 Bytes 
liest, aber die Pointeradresse des Blocks igno- 
riert. Das folgende Programm setzt OSGBPB 
ein, um eine einfache Datei zu schreiben. 

Der Status des Übertragsflags zeigt nach 
dem Ablauf von &FFD1, ob die Übertragung er- 
folgreich war oder nicht. Wenn C Null enthält, 
verlief sie reibungslos, steht C auf Eins, fand 
keine Übertragung statt. 

Die letzte Betriebssystemroutine für Datei- 
vorgänge ist OSFSC. Sie hat für eine Program- 
mierung jedoch nur wenig Nutzen. Ihr Aufruf 
unterscheidet sich von den zuvor erläuterten, 
da er nicht über eine direkte Adresse stattfin- 
det, sondern über die Adresse seines Vektors. 
In einem Maschinencodeprogramm sieht das 
so aus: 

JMP (&21E) 

Weitere OS-Routinen führen Spezialfunktionen 
für bestimmte Dateisysteme aus. 


In Bewegung 


Abweichungen der BASIC-Dialekte und Verschiedenheiten im 
Betriebssystem von Acorn B und Commodore 64 machen den Entwurf 
maßgeschneiderter Steuerprogramme für den Robot-Arm erforderlich. 
Wir wollen nun auf den Commodore 64 eingehen. 


D: Betriebssystem des Commodore 64 er- 
zeugt regelmäßige Interrupts zur Steue- 
rung interner Vorgänge wie etwa der Tasta- 
turabfrage. Diese Interrupts erfolgen in festen 
Zeitabständen von einer sechzigstel Sekunde. 
Das Steuerprogramm für den Commodore 
wurde in diese Interrupt-Routine eingebaut. 
Der Rechner kehrt erst nach Ausführung bei- 
der Abläufe wieder zur normalen Funktion zu- 
rück. Der erste Teil des Maschinenprogramms 
dient dem Austausch des normalen IRQ-Vek- 
tors durch einen neuen Vektor für unser Pro- 
gramm. 

Wenn der normale Vektor durch unseren 
neudefinierten ersetzt ist, wird bei jedem Inter- 
rupt die Steuerroutine für den Arm durchlau- 
fen. Das Programm schickt Steuerimpulse über 
den User Port an die Motoren. Die Länge jedes 
Impulses teilt dem betreffenden Motor mit, auf 
welchen Winkel er sich einstellen soll. Die 
richtige Impulslänge ruft das Maschinenpro- 
gramm aus einer Acht-Bit-Tabelle mit dem Na- 
men ANGLE ab. Wie beim Acorn B werden die 
Speicherplätze der ANGLE-Tabelle nach und 
nach den Werten einer weiteren Tabelle 
(NEWPOS) angeglichen. NEWPOS wird durch 
den BASIC-Programmteil definiert. 

Das Arm-Steuerprogramm nutzt das eben 
beschriebene Maschinenprogramm zum An- 
trieb der Servomotoren. Ähnlich wie beim 
Acorn B dient auch hier die Tastatur zur Steue- 
rung der Bewegungen. Das Speichern der Po- 
sitionen funktioniert wie beim Acorn. Aller- 
dings gibt es auch Unterschiede zwischen den 
beiden Versionen: Bei Bewegungen neigen die 
Motoren dazu, auf der angewählten Position 
hin- und herzupendeln. Das liegt am Video- 
Chip des Commodore, der die Interrupt-Steue- 
rung beeinflußt. Am einfachsten läßt sich das 
Problem umgehen, indem der Bildschirm wäh- 
rend der Laufzeit des Wedge-Programms ge- 
löscht wird. Diese Funktion führen Zeile 7000 
und 8000 aus. 

Die zweite Schwierigkeit ist die Langsam- 
keit des Commodore-BASIC bei der Tastatur- 
abfrage. Das fertige Maschinenprogramm ver- 
gleicht den ASCII-Code eines Tastendrucks 
mit den durch eine Funktion belegten Tasten 
aus der Tabelle. Bei einer Übereinstimmung 
wird die entsprechende Zahl in Verbindung 
mit dem ON...GOSUB-Befehl zum Aufruf des 
entsprechenden Unterprogramms eingesetzt. 


Commodore 64 
Arm-Steuerprogramm 


BASIC-Lader 


REM KRRKRRKREEEEK REKEN 
REM #*x* ** 
REM #«* BASIC LOADER FOR #%* 
REM xx EBM ARM CONTROLLER *#* 
REM xx ”%* 
REMOTE 
’ 

FOR 1=49155 TO 49394 

READ AsPOKE I,AiCCc=l.etA 
NEXT I 

READ CS; IF CS<C>CC THEN PRINT"CHECKSUM ERROR ":STOP 


DATAI169,255,141,3,221,169,62,141,1 
DATA1S2,169,192,141,2,192,129,173 
DATA29,3,174,1,192,141,1,192,142 
DATA29,3,173,21,3,174,2,192;141,2 
DATA192,142,21,3,169,16,133,251 
DATA169,193,133,252,169,255,168,0 
DATA145,251,136,298 ,251,88,96,8,72 
DATA152,72,138,72,169,255,141,1 
DATA221,162,7,169,255,24,196,72 


DB DATA188,9,193,49,251,145,251,194 


DATA292,16,243,169,48,136,208,253 
DATA169,255,169,9,49,251,141,1,221 
DATA20R ,208,248,162,7,169,255,188 
DATAB,193,145,251,202,16,248,104 
DATA179,194,168,194,49,198,1,192 


a DATA162,2,169,90,189,8,193,221,0 


DATA193,249,14,176,6,222,0,193,.76 
DATA156,192,254,0,193,76,156,192 
DATA2AR ,232 ,224 ,4 ,208,228,32,169 


D DATA192,192,4,2908,217,96,138,72 


DATA152,72,160,255,174,9,192,136 
DATA234 ‚234 ‚288 ,251 ‚202 ‚208,248 
DATA194,168,104,179,96.0,255,255,0 
DATAB ‚255 ,255,0,08,255,255,90,8,255 
DATA255,9,0,72,138,72,152,72,32 
DATA228 ‚255,201,80,249,249,162,8 
DATA221,191,192,249,7,232,224,17 
DATA298 ‚246,162 ,255,142,287,192 
DATA194,168,194,1790,194,96 
DATA33897 : REMACHECKSUM& 
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DOR=56573 


PAGE=$FB 


*=$cana 


LnA 
sTA 
LDA 
sTa 
LDA 
sTa 


sEI 
LDA 
LDOX 
sTa 
sTKk 
LDA 
LDx 
sTA 
sSTx 


LDA 
sTA 
LonR 
sTA 


LDA 
LDY 


sTA 
DEY 
BNE 
ELT 
RTS 


F 


PART = 56577 


ANGLE=$C 108 
NEWPOS=$C198 :POSITION TABLE 
MWÜTTARSETIIA MOTOR LOOK UP TABLE 
+8 PAGE POINTER TO TABLE 
RAVEC=$9Q314 :IRQ VECTOR LOBYTE 


DELFAC #=xti 
OLRVEC x=xt+2 


Assembler-Listing 


srrrrrtrtrH tr HH HH HH HH Hr + 
#rrrrrrrrrtH Hr Hr tr Hr 


++ 


EBM ARM CONTROLLER ++ 


++ 


rrrrrrrr rt r  + 
ArttttrrrrrHrHr Hr rt HH HH 


ANGLE VALUE LOCATION 


#$FF 

DOR »SET BOR TO QUTPUT 
#<EVENT 

QURVEC. »POINT TO EVENT 
#>3EVENT HÄNDLER 

QURVEC +1 


’ INTERRUPTS OFF 
SWAP EXISTING 
: IRQ VECTOR FOR 
»QUR VECTOR 


IRQVEC 
AURVEC 
QURVEC 

IROVEC 

IRDVEC +1 
QURVEC +1 
QURVEC +1 

IROVEC +1 


INITIALISE TABLE +t+++ 


#<MATTAB 
ZPAGE 
#>MATTAB 
ZPAGE+1 


H#sFF 
#309 


<ZPAGE),Y 


TABLE 
# INTERRUPTS ON 


EVENT HÄNDLER +t++ 


#SAVE REGISTERS 
»DON STACK 


?++ START PULSE, FOR SOME MOTORS IT 
»MAY BE POSSIBLE TO START BEFORE FILLING 
’TABLE AND SQ REDUCE WAIT LOOP BELOW ++ 


LDA #$FF 
STA PORT 
’++ FILL TABLE WITH EXCEPTIONS ++ 
LDOX #397 
LDA #$FF 
eLC 
EXCEPT 
ROR A 
PHA BIT PATTERN 
LOY ANGLE,X ;GET MOTOR X OFFSET 
AND <ZPAGE),Y :KEEP EXISTING PATTERN 
STA (ZPAGE>,Y BUT MODIFIED FOR MOTOR X 
PLA 
DE* 
BPL EXCEPT 
2++ TABLE IS NOW LOADED ++ 
LDY #539 
WAIT 
DEY :FILL IN SOME 
BNE WAIT ; TIME 
LDA #SFF »ALL PULSES ON 
LDY #$909 


‚USER PORT DATA REGISTER 
»USER PORT DATA DIRN REG 


:STORAGE FOR DELAY FACTOR 
STORAGE FOR DOUR VECTOR 


LOOP 
AND 
sTA 
INY 
BNE 


LDX 

LDA 
CLEAR 

LDY 

sTa 

DEX 

BPL 


<ZPAGE),Y ’BUT MASK OFF WITH EACH 


PORT 
LOOP 


#307 
ASFF 


ANGLE ,X 


?TABLE ELEMENT IN TURN 


ZCLEAR ALL EXCEPTIONS 


ZPAGE)>,Y 


CLEAR 


’++ ALL PULSES SHOULD NOW BE FINISHED ++ 


PLA 
TAX 
PLA 
TAY 
PLA 
PLP 


JMP <OURVEC) 


Er 


LOOP2 
LDX 
LDY 
LOOP1 
ıLDA 
cmP 
BEG 
BCS 
DEC 
JMP 
ADD 
INC 
JMP 
MOVED 


INERX 


TAX 
RTS 


NEWPOS.X 
ANGLE ,* 
MOVED. 
ADD ı 
ANGLE ,Xx 
INERX 


-ANGLE ‚x 


INERX 


304 
LODOPI 
WAITER 
#594 
LOOP2 


#sFF 
DELFAC 


ENCORE 


ENCORE 


+RESTORE REGISTERS 


z JUMP TO NORMAL 
#1IRQ ROUTINE 


++++ SMOOTH SERVO MOVER +t+++ 


»NEW POSN FOR SERVO X 
+IS DLD POSN SAME? 
:IF = THEN DO NOTHING 
»IF'> THEN ADD 

ELSE SUBTRACT 


zALL 4 SERVOS DONE 

IF NOT NEXT SERVO 
SHORT PAUSE. 

IF Y=4 THEN ALL MOVED 


‚SAVE X & Y REGS 


;GET DELAY FACTOR 


»256%8 CLOCK CYCLES 


WAIT 


zIF MORE DELAY THEN 
;REPEAT 


z++++ CHECK KEYBOARD ++t++ 


’ 


KEYTAB x= 
RESULT «*= 
GETIN=SFF 
’ 

CHECK 


x+16 
x+i 
E4 


GETIN ;GET A CHAR 
#508 NO CHAR? 


NOKEY 
#500 


KEYTAB,X 
EXIT 


#17 


;1S CHAR IN TABLE? 


i 


BNE COMPAR 
LDX #$FF ;SIGNAL NOT FOUND 
EXIT 

STX RESULT 

PLA 

TAY 

PLA 

TAX 

PLA 

RFS 


Arm-Steuerprogramm 


1@ REM Rank RK REKK K 
2a REM BR 


;STORE KEYTAB OFFSET 


aa REM *r x 
49 REM «* CBM ARM SEQUENCE %%* 
Sf REM x* PROGRAMMER ”* 
70 REM #* ** 


BO REM Hrn HEUER KR K 
aa REM Hark 
an. 
a6 DN=9:REM FOR CASS DN=1 
97 IF A=2 THEN A=11:LOAD"ROBARM.HEX" .DN, 1 
1Aa MNSUB IABA:REM SET UP 
112 PRINT CL$ 
12A X=5:Y=61G0OSUB 1ABAA:PRINT"WAULD YOU LIKE TO :" 
13@ %X=4: Y=19:G0SUBIAARAA:PRINT"I....PROGRAM NEW ARM 
SEQUENCE" 
148 X=4: Y=12:1G0SUBIBAAA:PRINT"2....ADD MOVES TO A 
PRAGRAM" 
159 X=4:Y=14:GOSUBIAQAA:PRINT"3....REPLAY A FILE" 
168 X=4: Y=16:G0SUB1BAAQ:PRINT"4....LEAVE PROGRAM" 
170 GET G$:IF G$="" THEN 170 
139 IF G$="1" THEN C=AiLM=@:REM REST ARRAY PTRS 
128 IF G$="1" OR G$="2" THEN GOSUB2RAR : GOSUB3BAR:G 
OSLUB4B8R : GOSURSBAR 
200 IF G$="2" THEN GOSUBKAAB :GOSUB4AAA 
eım IF G$="4" THEN PRINTELSIEND 
22a GoTo 11a 
@@ REM +#x# KEY FUNCTIONS axx* 
48 DX=DX+1:RETURN 
55a NX=Dx-1:1F DX<@ THEN Dx=@ 
555 RETURN 
SEA P=PEEK(NP)+DX: IF P<25S6THEN POKENP,P 
S65 RETURN 
570 P=PEEK<NP)-DX: IF P>ATHEN POKENP,P 
575 RETURN 
S8@ P=PEEK<NP+1Y+DX: IF P<ASSTHEN POKENP+1,.P 
585 RETURN 
590 P=PEEK(NP+1)-DX: IF P)ATHEN POKENP+1,P 
595 RETURN 
6AA P=PEEK(NP+2)-DNX: IF P>ATHEN POKENP+2,P 
685 RETURN 
619 P=PEEK<NP+2)+OXF IF P<2SETHEN POKENP+2,P 
615 RETURN 
62a P=PEEK (NP+3)+3#0X: IF P<2S6THEN POKENP+3,P 
625 RETURN 
620 P=PEEK<NP+3)-3#0X} IF P<2S6THEN POKENP+3,P 
635 RETURN 
64@ FOR I=A TO 3:3POKE NP+1,R“%CC,TI:NEXT I:RETURN 
658 C=Ctlt IF C>MC THEN C=2 
655 RETURN 
BEA C=C-I:IF C<a THEN C=Mr 
665 RETURN 
67a FOR I=A TO 3:R%(C,TI=PEEK(NP+T)ENEXTIC=CHIIRET 
URN h 
6880 FOR I=@ TO 3:3RX(C,1I=PEEK(NP+TIINEXTIC=CHIIRET 
URN 
9939 ; 
19800 REM ax#x SET UP xxrx 
1@IA C=@:NS=3:REM NO. OF SERVOS-1 
1a2@ L.M=9:0C=@;DF=1A:REM NELAY FACTOR 
10834 MC=1AA:REM MAX COUNT 
1@a4@ DIM R%CMC ,NS?:REM KEY POSITIONS ARRAY 
105A CLS=CHRSt 147):PEM CLEAR SCREEN 
1962 DWs="":FOR 1I=1 TO 25:0W8=DWS+CHRSCITIINEXT Ti 
REM CURSOF DOWN 
1865 POKE 65@,128:REM SET KEYS TO REPEAT 
1970 DL.=49152:NP=49416:REM DELAY AND POSITION ADDR 
ESSES 
1875 68=49155:OFF=4917A:REM WEDGE ON/OFF SYS ADDRE 
SSES 
1977 MNVE=492R1:REM MOVE SERVOS SYS ADDRESSES 
1978 KEYTAB=49343:RESULT=49359:REM KEYPRESS ADDRES 
sES 
1979 CHECK=4936@:REM KEY CHECK SYS ADDRESS 
1288 REM «+ READ KEYPRESS ASC DATA #x 
1a9a FOR I=@ TO 14:READ A:POKE KEYTAB+T,A:NEXT I 
1189 DATA 73,59,157,29,145,17,65.99,88,67 
1118 DATA #2 ,78,66,83,81 
ı2@0 REM ** ZEFD NEWPDS LOCATIONS xx 
12198 FOR I=® TO 3:POKENP+T,A:NEXT I 
1999 RETURN 
1999 ; 
2aaa REM +#r* INFORM #rr* 
2a1la PFRINTCLS 
2920 x%=3: Y=S:G0SUBIAARR@:PRINT"PLEASE USE :" 
2038 X=1:Y=7:G0SUB1ARA@;PRINT"CURSOR KEYS...FOR L/ 
R AND IST ARM U/D®: 
2048 X=1:Y=9:GOSUB1AAAA:;PRINT"A & Z.........FOR 2N 


D ARM U/D* 


259 X=1;Y=11:G0SUBI1AARD:PRINT"X & C.........FOR — 


RAB DPEN/CLOSE” 

2ASA X=1:Y=13:7G0OSUBIAAMAR:PRINT"S.............T0 SA 
VE A POSITION" 

2970 %=1:Y=155GOSURIAAAA:PRINT"Q.............T0 RE 
TURN TO MENU" 

eo8sA X=1:Y=17:G0SUBIABAR:PRINT"R.»..-..-22....T0 MO 
VE TD SAVEN POSITION" 

2aSQ X=1:Y=19:GNSUR 1AAAA:PRINT"N & B.....2....NEXT 
AND: BACK COUNT" 

2109 X=1:Y=21:G0SUBIAAAA:PRINT"E..2222..2....SET N 
EW COUNT" 

211Q X=1:Y=23:7GQSUB IBRAA:PRINT"I & D.........T0 IN 
EC AND DEC SPEED" : 

2128 X=2: Y=2:GOSUB 19999; PRINT"COUNT=":C5" "; 

2138 FOR I=0 TD 35PRINTPA(C,ID?" "Z:NEXTSPRINT 
2135 GET A$:IF A$s="" THEN 2135 

2148 RETURN 

2999 ; 

3@9Q REM x+#* PROGRAM ARM xx#* 

3985 GOSUB7ORB:REM BLANK SCREEN AND START WEDGE 
=@1@ POKE DL,I:REM SET DELAY FACTOR TO 1 

SQ2R DX=8;REM CHANGE RATE 

sa2a SYS CHECKIREM CHECK KEYPRESS 

3835 R=PEEK(RESULT>+IHIF R>15 THEN 3Q3A:REM NON-VA 
LIN KEY 

3837 ON R GOSUB 540 ,559,560,574,589,590 ‚608,619 ,62 
0,630,649 ‚6590 ,660,678 

31830 IF C>LM THEN LM=C-I:REM RECORD MAX COUNT sa F 
AR 

3229 aC=r 

32680 SYS MOVESREM M/C MOVE SERVaS 

3278 IF P=15 OR C>MC THEN GOSUBSBBR:RETURN:REM WED 
GE OFF AND QUIT 

32939 GOTO 3939:REM REPEAT 

3999 : 

4Raa REM #x** REPLAY MAVEMENT SEQUENCE #xK% 

4819 PRINTCLS 

4820 %=5:Y=23:G60SUR 1PAAA:PRINT"REPLAY SEQUENCE (Y/ 
N>, R REPEATS" 

aa3a GET ANSIIF ANS<>"Y" AND ANS<>"N" AND ANS<Y"R" 
THEN 4939 

40408 IF AN$="N" THEN RETURN 

4058 IF ANS(>"R" THEN X=5:Y=22:G0SUB 12888: INPUT"DE 
LAY FACTOR 1-255":DF 

4aEQ IF DF<{@ OR DF>255 THEN 4859:REM CHECK RANGE 
4978 POKE DI.,DFiREM SET DELAY FACTOR REGISTER 

4975 GOSUB7@AAA:;REM BLANK SCREEN AND START WEDGE 
4088 FOR I=8 TO LM 

4a3a X=5:Y=-2:7G0OSUBI1AAAA:PRINT"NO. IN SEQUENCE = "; 
a  } 

419@ FOR S=@a TO 2 

4118 POKE NP+S,R%(1,5S) 

4128 NEXT S:SYS MOVE:REM M/C MOVE SERVOS 

4138 NEXT I 

4135 GOSUBSARB:REM RESTORE SCREEN AND TURN OFF WED 

GE 

41498 GOTO 4919:REM REPEAT 

49939 ; 

Saga REM *#K% SAVE A SEQUENCE #aK%* 

5B18 PRINTCLS 

5029 %=5:Y=19:G0OSUB1AARA:PRINT"SAVE SEQUENCE ON FI 

LE (Y/ND" 

5930 GET ANS:IF ANS<>"Y" AND ANS<C)"N" THEN 5939 

5248 IF ANS="N" THEN RETURN 

sas5a %=5:Y=127G0SUB 1A9aR: INPUT"FILENAME"IFLS 

sasn OPEN 3,DN,3, "88: "+FL$+*.DATA,S,W":iREM OPEN FI 

LE 

sa7a PRINT#3,LM 

sa8a FOR A=8 TO LM:FOR B=2 TO 3 

5a9a PRINT#3,RA(A,B)I:NEXT B,A 

Sıaa PRINT#3;CLOSE3 

5120 RETURN 

59399 : 

6808 REM «#*x#* LOAD A FILE x##* 

6812 PRINTCLS 

628 %=5:Y=19;GOSUB 19999; INPUT"FILENAME TO LOAD":F 

L$ 

6949 OPEN 3,DN,3,"@8: "+FL$+".DATA,S,R":REM OPEN FI 

LE 

6a59 INPUT#3,CHLM=C 

6862 FOR A=B TO C:FOR B=8 TO 3 

6878 INPUT#3,R%<(A,BI:INEXT B,A 

6B82 PRINT#3:CLOSE3 

6108 RETURN 

6999 #; 

7aaa REM «xxx START WEDGE xuask 

7@1ıa POKES3265,,PEEK (53265)AND 239:REM BLANK SCREEN 


7815 SYS 6S 

7928 RETURN 

7939 ; 

8808 PEM xx*% STOP WEDGE xxx#* 

8018 POKES3265,PEEK (53265)0R I6:REM BLANK SCREEN 
8815 SYS OFF 

8828 RETURN 

89299 ; 

18AQ8 REM ***#* POSITION CURSOR AT X,Y xaxk 
18818 PRINTCHRS$( 19); 5PRINTTAB(XI:LEFTS(CODWS,Y): 
ı1aa22 RETURN 


Ant Attack 


Hier zeigen wir eine 
Auswahl von Screens 
aus der Spectrum-Ver- 
sion von SoftAid. Die 
auf dem Sampler ent- 
haltenen Programme 


sind bewährte Top-Titel. 


Alle Erlöse aus dem 
Verkauf der Cassette 
wurden an Band-Aid 
weitergeleitet. 
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Brot und. 


Fred Gilligan’s Gold 


von mehreren ee 
die gemeinsam Geld sammeln, um 
Bedürftigen in Afrika zu helfen, 
Mit eigenen Mitteln wurde eine 
Cassette produziert, die, ‚mehrere 
tausend Mark an Spenden für die 
Aktion „Band-Aid® ‚brac { 


ie „Band-Aid"- Arcdantalen Bob ots rüt- 

telten 1985 weltweit Millionen von Men- 
schen auf. Neben dem Erfolg der Single ‚Do 
They Know It's Christmas?" Ende 1984 ung den 
„Live Aid"-Konzerten in London und Philadel- 
phia im Juli 1985 unterstützten auch Organisa- 
tionen aus anderen Unterhältüngsbranchen 
die Arbeit von Live Aid und sammelten Geld 
für Afrika. Eine deflerfolgreichsten Initiativen 
ging von englischen Software-Verlegerm aus, 
Das Ergebnis war „SoftAid“, ein Programm- 
Sampler für die populärsten Heimcomputer mit 
interessanfen Top-Titeln. 

Treibende Kraft hinter. „SoftAid" war die 
Guild of Software Houses (GOSH), eine Bran- 
chenorganisation der Computerspiel-Industrie, 
deren eigentlicher Aufgabenbereich die Ver- 
folgung von Software-Piraten ist, Sie bat ihre 
Mitglieder, mit Spielen an dem Hilfsprojekt 
teilzunehmen. Ursprünglich wollte man für die- 
sen Samplerineue Programme schreiben. Es 
erwies sich aber als einfacher, bereits vorhan- 
dene, erfolgreiche Spiele zu einem Sampler 
zusammenzustellen. 

Die Reaktionen der So EEE waren 
überwältigend: GOSH bekam mehr Pro- 


gramme zur Verfügung gestellt, als auf einer 


Cassette für den ZX Spectrum und den © 64 
unterzubringen waren. So mußte man auf Pro- 
gramme renommierter Software-Häuser wie 
LlamaSoft oder Software Projects verzichten. 
Trotzdem gehörten die ausgewählten Pro- 
gramme zu den besten Games der letzten 
Jahre: darunter befand sich auch „Ant Attack" 


Sorcery 


m für den 
ellbound“ (Beyond), „Star- 


Bike“ (The Edge), „Kokotoni Wilf" (Elite), „The 
| Pyramid“ (Fantasy), 
fMelboume House), „Gilligan’s Cold" (Ocean), 


„Hoface Goes skiing" 


„Ant Attack“ (Quicksilva), „8D Tank Duel“ 


Real Time), „Jack and the Beanstalk“ (Thor) 


undySördery" von,Virgin. Die Cassette für den 


© 64 enthält , „Gumshoe“ (A’n’F), „Beam Rider“ 
(Activision), „Star Trader" (Buy-Byte), „Gyro- 


"pod“ (Taskset), „China Miner“ (Interceptor), 
„Kokotoni wilf (Elite), „Gilligan's Gold" 
(Ocean), „Fred (Quicksilva), „Falcon Patrol" 
(Virgin) unayFlak" von US-Gold. Während der 
Projektentwicklung arbeitete GOSH eng mit 
Band-Aıd zusammen. Der Single-Hit von Band- 
Aid „Do They Know It's Christmas?“, ebenfalls 
auf den Systemcassetten enthalten, war ein zu- 
sätzlicher Anreiz, den Sampler zu erwerben. 


Ein echter Hit 


Auch bei Herstellung und Vertrieb ging GOSH 
nach der generellen Band-Aid-Philosophie vor: 
‚Man bat die gesamte Branche um Unterstüt- 
zung und bekam so nicht nur die Programme 
kostenlos, sondem auch Druck, Werbung, Cas- 
settenvervielfältigung und Vertrieb; lediglich 
die reinen Materialkosten mußten bezahlt wer- 
den. Im Frühjahr 1985 wurden die Programm- 
sammlungen veröffentlicht-und kamen sofort 
an die Spitze der Bestseller-Listen. Kein Wun- 
der, denn der Wunsch zu helfen wird durch die 
Sammlung durchaus sehenswerter Spiele kräf- 
tig gefördert, 


SoftAid: Für ZX Spectrum und C 64. Versio- 
nen für Acom B und Schneider befinden sich 
in Vorbereitung. 

Vertrieb: Rushware GmbH, An der Guemp- 
gesbrücke, 4044 Kaarst 

Autoren: Verschiedene 

Steuerknüppel: Optional 

Programm; Cassette 


Kostenprobleme 


Der Einzug von Computern in den englischen Schulunterricht hat eine 
Reihe von Problemen mit sich gebracht - nicht zuletzt aufgrund der 
mangelnden Unterstützung seitens der Regierung. 


P:°”- hat es seit Einführung der Com- 
puter in den Unterricht stets gegeben. 
Sparmaßnahmen, ausgeprägte Ignoranz ge- 
genüber dem Thema an sich und den Schwie- 
rigkeiten bei der Ausbildung der Lehrkräfte 
sind Ursachen für den geringen Einsatz von 
Computern im Schulunterricht. Die neue Tech- 
nologie ist von Regierungsbeschlüssen abhän- 
gig, und die beträchtlichen Sparmaßnahmen 
verhindern die angemessene Ausstattung der 
Schulen. Nach dem Erwerb kostspieliger Hard- 
ware ärgern sich viele britische Lehrer dar- 
über, daß keine Mittel für den Kauf geeigneter 
Software zur Verfügung stehen. 

Diese fehlende Unterstützung ist auch 
Grund dafür, daß mehrere Projekte, an denen 
Kinder und Computer beteiligt sein sollten, 
nicht begonnen werden konnten. Man hat 
kaum darüber nachgedacht, inwieweit Compu- 
ter in bestehende Lehrpläne einbezogen wer- 
den könnten. Folglich gibt es auch keine klare 
Strategie für ihre Einführung an Schulen. TIC- 
CIT und PLATO in den USA sowie das National 
Development Program in England wurden in 
der „Vor-Micro-Zeit" Anfang der 70er Jahre 
durchgeführt, als noch Gelder flüssig gemacht 
werden konnten. In den 80er Jahren aber se- 
hen sich die Regierungen beider Länder au- 
ßerstande, ähnliche Projekte zu finanzieren, 


obgleich ein dringender Bedarf dafür vorhan- 
den ist. An den weiterführenden Schulen wird 
über BASIC und Computer-Studien generell 
heiß diskutiert. Aber: Man stößt auf Ableh- 
nung. Grundschulen werden mit einem Com- 
puter ausgestattet — der Lehrer muß alleine 
sehen, wie er damit klarkommt. 


LOGO zum Spitzenpreis 


Es gibt ernsthafte Kommunikationsstörungen 
in der pädagogischen Computerwelt. In Lon- 
don investieren viele Schulen in RML-Rechner. 
Folglich gab das ILECC — das „Inner London 
Educational Computing Centre“ — viel Geld 
aus und wandte viel Zeit auf, um eine LOGO- 
Version für RML-Rechner zu schreiben. Inzwi- 
schen aber stellte Research Machines Limited 
selbst eine volle Implementierung der Sprache 
her. Unabhängig davon warf die ILECC weiter 
gutes Geld für eine schlechte Sache aus dem 
Fenster, um das eigene, schlechtere Turtle- 
Grafik-Programm herzustellen und an den 
Schulen zu verbreiten. 

Weitere Probleme ergeben sich aus den 
fehlenden Ausbildungsmöglichkeiten für Leh- 
rer. Man hat Computer im Klassenzimmer auf- 
gestellt und erwartete von den Lehrern, daß 
sie alles aus den Handbüchern lernen würden. 


„Guten Morgen, Kinder. Wir beginnen mit der ersten Stunde Computer- 


Unterricht. Ich habe hier sieben Computer. Wenn ich 


wieviel bleiben übrig... .? Na, Peter.. .! 


fünf wegnehme, 
“ 


Unterstützt durch die 
BBC und von der Re- 
gierung für die Benut- 
zung in Schulen emp- 
fohlen, spielen Acorns- 
B-Rechner eine ent- 
scheidende Rolle im 
britischen Schulsystem. 
Die auf diesen Seiten 
gezeigten Diagramme 
sind einer Untersu- 
chung entnommen, die 
BBCs Educational 
Broadcasting Services 
Research Unit im Ja- 
nuar 1985 veröffent- 
lichte. rraschend 
dabei ist die noch im- 
mer währende Präsenz 
von Commodores Pet 


und dem Sinclair ZX 81. 


Die Diagramme zeigen 
deutlich, daß trotz der 
Versuche der Regie- 
rung, das Verhältnis 
Schüler/Microcomputer 
an englischen Schulen 
zu verbessern, eine von 
fünf Schulen noch im- 
mer mit einem Compu- 
ter für durchschnittlich 
200 Kinder auskommen 
muß. 
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Wegen der Sparmaßnahmen sind Einführungs- 
kurse mittlerweile unbezahlbar. Zu jener Zeit, 
als noch Geld dafür zur Verfügung gestellt 
wurde, weigerten sich die Schulen, die Lehrer 
wegen des Unterrichtsausfalls auf Kurse zu 
schicken. 

Diese Situation an Lehrerseminaren ist noch 
schlimmer. 1983 stellte das Erziehungsministe- 
rium besorgt fest, daß es kaum Computeraus- 
bildungskurse für Lehrer gäbe. Unterstützt 
vom Wirtschaftsministerium empfahl man 
Kurse von mindestens 20 Stunden Dauer. Chris 
Gregory, Dozent für Mathematik am Bradford 
College und Mitglied des Projekts MEP (Mi- 
crocomputers in Education Project), sagte: „20 
Stunden sind ohnehin lächerlich, aber viele 
Kollegen schaffen nicht einmal das.“ Ein 


Schulen (Prozent) 
10 20 30 40 50 60 70 80 


Rechnertypen an Schulen 


Hauptproblem ist das Fachpersonal. Das Erzie- 
hungsministerium beläßt das Personal beim 
derzeitigen Stand oder streicht Planstellen. Un- 
ter diesen Voraussetzungen kann man kaum 
Computerfachleute an den Schulen finden. 
Gute Lernprogramme gelangen nur selten 
auf den Markt. Die Regierung hat in Hardware, 
nicht aber in Software investiert. Da die Schu- 
len kein Geld ausgeben können, liegt die Ent- 
wicklung von Software im argen. Anläßlich der 
Educational Publishers Software-Ausstellung 
1983 ergab sich, daß die meisten in diesem Be- 
reich tätigen Unternehmen Verluste hinneh- 


men mußten. Was den Markt noch komplizier- 
ter macht, ist der Umstand, daß viele Schulbe- 
hörden Geld in eigene Software-Entwicklun- 
gen gesteckt haben. Damit sind die teureren 
kommerziellen Programme noch weniger at- 
traktiv, der Marktanreiz erstirbt. 

Sloane Software beispielsweise veröffent- 
lichte kürzlich ein „Hopslide" betiteltes Mathe- 
matik-Programm für fünf- bis siebenjährige 
Kinder. Es ist ein einfaches Programm, das 
zum Verständnis von Zahlenwert und Zahlen- 
folge beiträgt. „Hopslide“ kostet weniger als so 
manches Schulbuch und könnte gut verkäuf- 
lich sein. Die Inner London Education Authority 
produziert aber eigene Software. So gibt es 
ebenfalls ein Hopslide-Programm, das im 
SMILE-Mathematik-Programmpaket enthalten 
ist. Es ist identisch mit der Sloane Software- 
Version, abgesehen davon, daß der Zahlenbe- 
reich größer und die Grafik etwas besser ist. 
Das SMILE-Programm enthält 19 weitere, ähn- 
liche Programme und kostet nur unbedeutend 
mehr als die Sloane-Version. 

Geldmangel und schlechte Organisation 
sind aber nicht die alleinigen Ursachen für die 
Misere. Es gibt andere Probleme, die bei der 
Einführung der neuen Technologie in Schulen 
hinderlich sind. So hat allein die physische 
Präsenz von Computern Probleme verursacht. 
Elektronische Ausrüstung wird in vielen Schu- 


l Computer für 
200 oder mehr 
Schüler 


1 Computer für :: 


amp 51-100 Schüler 


für 151-200 
Schüler 


29% 
15% 


EEE] Computer für 
101-180 Schüler 


20% 


Schüler je Computer 


len nachts in einem gesicherten Raum depo- 
niert. Bevor es Computer gab, waren dort zwei 
oder drei Cassetten- und Videorecorder unter- 
gebracht. In einer Grundschule muß nun ein 
Lehrer zwei- oder dreimal mit Computer, Moni- 
tor, Kabeln, Diskettenstation und Software über 
einen langen Gang gehen, ein paar Treppen 
steigen, und dies jeden Morgen und Abend. 
Schließlich weigerten sich Lehrer, die Ausrü- 
stung weiterhin zu schleppen. Die Schulbe- 
hörde bestand jedoch darauf, daß die Compu- 
ter gesichert untergebracht sein müßten. Er- 
gebnis: Die Computer blieben vier Monate un- 


genutztim Aufbewahrungsraum, während Leh- 
rergewerkschaft und Behörden versuchten, 
einen Kompromiß zu finden. Man einigte sich 
schließlich darauf, Stahlschränke im Klassen- 
zimmer aufzustellen. 

Die Situation an vielen Schulen ist bekla- 
genswert. Einfacher Grund dafür: Man hat kein 
Geld, um Sicherheitssysteme zu installieren. 
Die Schulen in Englands Ballungszentren wer- 
den jährlich mehrfach von Dieben und Einbre- 
chern heimgesucht. Die Versicherungsprämie 
ist so hoch, daß die Behörden es für preiswer- 
ter erachten, gestohlene Gegenstände neu zu 
erwerben, als sie zu versichern. 


Männersache! 


Doch auch, wenn die Computer tatsächlich ein- 
gesetzt werden können, gibt es Probleme. Die 
viel zu wenigen Computer an Schulen schei- 
nen überdies im Unterricht Jungen vorbehalten 
zu sein. Jungen sind auch meist Besitzer von 
Heimcomputern, die sie hauptsächlich zum 
Spielen benutzen. Ihre Games sind oft militant 
und aggressiv. Im Klassenzimmer setzt sich 
der gewohnte Umgang mit dem Rechner fort. 
Der Computer wird als männliche Domäne be- 
trachtet. Die Lernprogramme sind meist für 
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Schulen untersuchte: Mädchen wie Jungen wa- 
ren gleichermaßen interessiert. 

Das größte Problem ist jedoch, wie die Re- 
gierung Ausbildung bewertet, nämlich nach 
dem Produktivitäts- und Kostenschlüssel. Be- 
trachtet man den Computer als pädagogisches 
Lernwerkzeug, ist die Zukunft erschreckend: 
Kinder werden zum Bestandteil einer compu- 
terisierten Produktionsfolge, Lehrer werden 
durch Rechner ersetzt und Lehrpläne von Re- 
gierungskomitees festgelegt. Wie Seymour 
Papert anmerkte: „Es gibt starke Kräfte in der 
Welt, die auf eine starrere Gesellschaft drän- 
gen und den Computer auf eine Weise nutzen 
wollen, die das Leben weniger aufregend 
macht, starrer und unsozialer. Was können wir 
tun, um ihnen zu begegnen...? Wir können 
sagen: ‚Verbrennt die Computer!'. Aber das 
wäre Zeitvergeudung.... Oder wir können ver- 
suchen, das Ruder herumzureißen und den 
Computer auf eine sozial wünschenswerte 
Weise zu nutzen.“ 

Die Ausbildung auf beiden Seiten des Atlan- 
tik steckt in der Krise. Mangel an Investitionen, 
niedrige Löhne sowie eine generelle Abkehr 
von sozialen Errungenschaften verlangen 
ihren Tribut. Es gibt Menschen, die damit argu- 
mentieren, daß die Einführung von Computern 
an Schulen von den eigentlichen Problemen 
ablenke. Joseph Weizenbaum, Professor für 
Computerwissenschaft an der Universität Mas- 
sachusetts (Institute of Technology) sagte un- 
längst: „Unsere Schulen befinden sich bereits 
in einem hoffnungslosen Zustand. Die Einfüh- 
rung des Computers zu diesem Zeitpunkt ist 
allenfalls eine Ablenkung ... Er wird benutzt... 


16 + Alter in Jahren 


Computer „im Griff“ 


Jungen geschrieben, und diese monopolisie- 
ren die Computer zu Lasten der Mädchen. Ein 
Sprecher der Equal Opportunities Unit der In- 
ner London Education Authority sagte: „Wir 
sind uns dieser Unausgewogenheit beim Com- 
puterunterricht bewußt. In reinen Mädchen- 
Schulen gibt es das Problem nicht. Es existiert 
nur in gemischten Schulen, wo Jungen domi- 
nieren. Dort müssen wir die Mädchen dazu er- 
mutigen, Interesse am Computer zu finden, um 
so das Gleichgewicht herzustellen.“ Interes- 
sant ist das Forschungsergebnis der Universi- 
tät Edinburgh, die den Einsatz von LOGO an 


um einen technologischen Fixpunkt zu set- 
zen... und dabei fundamentale Probleme zu 
kaschieren, indem die Illusion erzeugt wird, 
man setze sich mit ihnen auseinander.“ 

Jener Teil der Gesellschaft, der letztendlich 
über Einsatz oder Nicht-Einsatz von Compu- 
tern entscheidet, sind die Kinder. Sie sagen 
immer ihre Meinung und wissen oft genau, ob 
etwas gut für sie ist oder langweilig und un- 
wichtig. Sie reagieren auf gute Software. In 
einer vom Computer bestimmen Umwelt schaf- 
fen Kinder ihre eigene Computer-Kultur und 
entwickeln ihre eigene Sprache. 


Die Grafik zeigt die 
„Computererfahrung“, 
die Schulkinder in Eng- 
land haben. Dabei wer- 
den die Auswirkungen 
der Spezialisierung im 
oberen Altersbereich 
deutlich. Ältere Schüler 
finden in ihren Lei- 
stungsfächern oft keine 
Anwendungsmöglich- 
keit für Computer. Le- 
diglich 30 % der befrag- 
ten Altersgruppen ge- 
ben an, den Computer 
„im Griff“ zu haben. 
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Zwei Versionen 


In dieser und der nächsten Folge untersuchen wir, wie BASIC mit dem 
Betriebssystem des Acorn B kommuniziert und nehmen die 
Fehlerbearbeitungsroutinen des Rechners aufs Korn. 


as BASIC-ROM des Acorm B belegt die 

Speicheradressen zwischen &8000 und 
&BFFF. Dieser Bereich wird auch als „Paged 
ROM" bezeichnet. Dabei können sich mehrere 
verschiedene ROM-Chips in der Maschine be- 
finden, die mit dem gleichen Speicherbereich 
arbeiten, von denen jedoch nur jeweils einer 
aktiv sein kann. Beispiele sind der DFS-Chip, 
der Econet-Chip, Programm-Chips wie Word- 
wise, View oder Disk Doctor und Sprachen wie 
FORTH oder BCPL. Die Technik der Paged 
ROMs spart viel Speicherplatz. 

Der Wert des Paging-Registers bestimmt, 
welches Paged ROM aktiv ist. Dieses Register 
ist Teil der Hardware, die vom OS gesteuert 
wird. Es kann bis zu 16 Paged ROMs aufrufen. 
Wenn das OS einen Befehl nicht identifizieren 
kann, spricht es zunächst die Paged ROMs an. 
Bei einem unbekannten *-Befehl werden da- 
her erst die Paged ROMs untersucht, bevor die 
Fehlermeldung „BAD COMMAND" erscheint. 
Beispielsweise wird *INFO vom OS-ROM nicht 
erkannt und an die Paged ROMs weiterge- 
reicht. Ist das DFS-ROM installiert, wird der Be- 
fehl akzeptiert und ausgeführt. 


Informatives Copyright 


Für den Acorn B gibt es zwei BASIC-Versionen: 
BASIC I und BASIC II. Um die Version Ihrer Ma- 
schine feststellen zu können, betätigen Sie 
CTRL-Break, geben REPORT ein und drücken 
Return. Enthält die Copyright-Meldung das Da- 
tum 1982, arbeiten Sie mit BASIC II, bei 1981 mit 
der älteren Version BASIC I. Im neueren Dia- 
lekt wurden einige Fehler des BASIC I korri- 
giert. Es hat außerdem zusätzliche Fähigkeiten 
zur Ausführung bereit. 

Neu sind unter anderem der Dateibefehl 
OPENUP und die modifizierte Funktion von 
OPENIN. In BASIC II eröffnet OPENIN eine Da- 
tei nur für die Eingabe, während in BASIC I da- 
mit die Ein- und Ausgabe möglich war — eine 
Fähigkeit, die sich für Random-Access- 
Dateien eignet. BASIC II hat für diesen Zweck 
den Befehl OPENUP der Dateien für die Ein- 
und Ausgabe eröffnet und dem OPENIN des 
BASIC I entspricht. Diese Änderung verursacht 
Probleme bei der Übertragung von Program- 
men zwischen Maschinen mit unterschied- 
lichen BASIC-Versionen, da der Token, der 
OPENIN in BASIC II darstellt, von BASIC Inicht 
erkannt wird. Der BASIC-II-Befehl: 


Y%=OPENIN("FRED”) 
erscheint in BASIC I als 
Y%=("FRED") 


und ruft dort eine Fehlermeldung hervor. 
Einige neue Eigenschaften von BASIC I 
sind besonders für den Maschinencodepro- 
grammierer interessant. Eine Verbesserung 
sollte besonders erwähnt werden. Um unter 
BASIC I Daten in Maschinencodeprogramme 
einsetzen zu können, mußte erst der Assem- 
bler verlassen und die Operationen ?, ! und $ 
eingesetzt werden. Hier ein Beispiel: 


1000 LDA data 
1010 .data 

1020 ] 

1030 ?P%=00 
1040 P%=P%+1 
1050 OPT pass 


Die meisten Assembler bieten statt dieser um- 
ständlichen Methode „Assembleranweisun- 
gen“, die den Assembler veranlassen, be- 
stimmte Aufgaben auszuführen. In unserem 
Programmbeispiel ist OPT eine derartige An- 
weisung. BASIC II bietet vier weitere Befehle 
dieser Art: EQUB reserviert ein einzelnes Spei- 
cherbyte, EQUD zwei Bytes, EQUW vier Bytes, 
und mit EQUS kann ein String im Speicher an- 
gelegt werden. Das BASIC-I-Programm sieht 
daher in BASIC II so aus: 


1000 LDA Daten 
1010 .Daten EQUB 00 
1020... weitere Programmteile 


Dabei wird das Register A mit dem Byte der 
Adresse „Daten“ geladen (hier eine Null). Ein 
weiteres Beispiel: 

1000 .Meldung EQUS "Hallo!" 

Hier werden die Bytes, die die Meldung 
„Hallo!“ darstellen, im Speicher von der 
Adresse mit dem Label ‚Meldung an gespei- 
chert. Bei all diesen Assembleranweisungen 
wird P% automatisch hochgezählt. 

Auch der BASIC-II-Befehl OSCLI ist sehr 
praktisch. Wir hatten bereits erwähnt, daß 
*-Befehle per OSCLI (bei &FFF7) an das Be- 
triebssystem übergeben werden. In BASIC I 
mußten dafür erst die Variablen X% und Y% 
(die Register X und Y) mit der Adresse des Be- 
fehlsstrings geladen werden. Der neue OSCLI- 


Befehl ist weit einfacher. Vergleichen Sie ein- 
mal die beiden Versionen: 


$&A00=“*TAPE” 
X%=&A00 MOD 256 
Y%=&A00 DIV 256 
CALL &FFF7 


OSCLI(“*TAPE”) 


Außer den zwei erwähnten BASIC-Versionen 
gibt es noch ein BASIC II für den amerikani- 
schen Markt, das die andersartige Bildschirm- 
darstellung berücksichtigt. Zudem besitzt der 
zweite 6502-Prozessor eine eigene BASIC-Ver- 
sion namens „HI BASIC", die eine Mischung 
der BASIC II US-Version und BASIC Il ist. 


Speichertopographie 


Zwischen &400 und &7FF ist der Speicher für 
die aktuelle Sprache reserviert („Language 
Workspace"). Auch auf der Zero Page stehen 
die Adressen zwischen &00 und &6F der aktu- 
ellen Sprache zur Verfügung, wenn auch der 
Platz von &50 bis &6F nicht oft eingesetzt wird. 
Auf Speicherseite 4 liegen die BASIC-Varia- 
blen: zwischen &400 und &46B die Werte für 
die eingebauten Ganzzahlvariablen wie A% 
oder X%. @% wird in den vier Bytes von &400 
bis &403 gespeichert (mit dem niederwertigen 
Byte in &400), A% von &404 bis &407 — und so 
weiter bis 2%. 

Zwischen &480 und &4F9 befindet sich der 
Index des BASIC-Interpreters. Er gibt die Be- 
reiche an, in denen Arrays und die anderen 
Fließkomma- oder Stringvariablen gespeichert 
sind. So zeigen beispielsweise die Bytes in 
&482 und &483 auf einen Speicherbereich zwi- 
schen TOP und HIMEM, in dem sich die Daten 
aller zur Zeit eingesetzten Variablen befinden, 
deren Namen mit A beginnen. Die in &4F6 und 
&4F7 gespeicherte Adresse zeigt auf den 
Speicher der BASIC-Prozeduren und die 
Adresse in &4F8 und &4F9 auf den Bereich für 
Funktionen. Auf diese Weise sind die Über- 
sichtlichkeit und der geregelte Zugriff jeder- 
zeit sicher gewährleistet. 


Schleifeninformationen 


Das RAM zwischen &500 und &5FF dient dem 
BASIC-Interpreter als Stack (darf nicht mit dem 
Maschinenstack des 6502 verwechselt werden, 
der auf Speicherseite 1 liegt). Die Seite 5 
verwendet BASIC für die RETURN-Daten der 
GOSUBs. Dort liegen auch alle Informationen, 
die für die Ausführung von FOR. ..NEXT- und 
REPEAT.. .UNTIL-Schleifen nötig sind. 

Ihre Ausführung verlangt vom BASIC-Inter- 
preter recht komplexe „Denkleistungen“. So- 
bald etwa FOR im Programm auftritt, muß sich 
der Rechner merken, wohin er beim zu erwar- 
tenden NEXT zurückspringen muß. 


Die Seite 6 setzt BASIC entweder für String- 
variablen ein oder für die Ausführung von Ma- 
schinencoderoutinen, die mit der erweiterten 
Version von CALL aufgerufen werden. Seite 7 
dient als Eingabebuffer für BASIC-Befehle 
oder Programmzeilen. Die Eingaben werden 
dort bis zu ihrer Weiterverarbeitung gespei- 
chert. Direkte Befehle werden interpretiert und 
ausgeführt und Programmzeilen an der ent- 
sprechenden Position in das Programm einge- 
setzt. Wenn dieser Speicherbereich nicht für 
BASIC benötigt wird, steht er für andere 
Zwecke zur Verfügung. 

Sicher haben Sie schon gesehen, wie Ihr 
Computer einen fehlerhaften Befehl mit einer 
Fehlermeldung quittierte. Auf dem Acorın B 
können Sie eigene Fehleranweisungen mit 
Fehlernummer und Meldung anlegen. Diese 
Möglichkeit ist besonders für Maschinencode- 
programme praktisch, die zusammen mit BA- 
SIC eingesetzt werden. Der Inhalt des Vektors 
BRKV (bei &202 und &203) zeigt auf die Rou- 
tine, die die von BASIC-Programmen erzeug- 
ten Fehler bearbeitet. 


Kommentierbare Fehler 


Sobald BASIC einen Fehler entdeckt — bei- 
spielsweise bei einer Teilung durch Null —, 
wird der Maschinencodebefehl BRK ausge- 
führt. Dadurch spricht der 6502 eine Routine 
an, deren Adresse in BRKV gespeichert ist. Auf 
den BRK-Befehl müssen eine Reihe Bytes fol- 
gen, die folgendes Format haben: 


BRK 

Fehlernummer (ein Byte) 
Fehlermeldung (eine Bytefolge) 
Ende der Meldung (ein Null-Byte) 


Fehler Nummer 4 (der die Meldung „Mistake" 
ausgibt) wird mit folgender Routine bearbeitet: 


Byte Beschreibung 


Befehl 
Fehlernummer 


ASCII-Code der 
Fehlermeldung 


Ende der Meldung 


Das BASIC-Fehlermodul setzt nun die System- 
variable ERL auf die Nummer der Zeile, in der 
der Fehler auftrat, und ERR auf die Fehlernum- 
mer — in diesem Fall 4. Das Fehlermodul stellt 
sicher, daß bei der nächsten Bewertung von 
REPORT die Fehlermeldung „Mistake“ ausge- 
geben wird. 
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Der Befehl BRK läßt sich aber auch in selbst- 
erstellten Maschinencodeprogrammen einset- 
zen, und somit können eigene Fehlermeldun- 
gen definiert werden. Der BASIC-Befehl ON 
ERROR GOTO behandelt diese neu generier- 
ten Meldungen wie die normalen, vom BASIC- 
Interpreter gemeldeten Fehler. So verursacht 
der folgende Maäschinencode die Fehlermel- 
dung „Zahl zu groß": 


1010 BRK 

1020 EQUB 254 

1030 EQUS "Zahl zu groß" 
1040 EQUB 00 


Nach der Ausführung erhält ERR die Zahl 254 
und REPORT die Meldung "Zahl zu groß". 

Da der Inhalt dieses Vektors verändert wer- 
den kann, läßt sich die gesamte Fehlerbe- 
handlung des Acorn B umstellen. Es besteht 
sogar die Möglichkeit, neue Befehle an das 
BASIC des Acorn B anzufügen — die Program- 
mierung dafür ist jedoch recht kompliziert. 

In der-nächsten Folge sehen wir uns an, wie 
BASIC II mit dem Betriebssystem des Acorn B 
arbeitet und welche Vorteile es bei seiner Koo- 
peration mit dem OS gegenüber seinem Vor- 
gänger tatsächlich bietet. 


Routineuntersuchung 


Die Liste zeigt die ROM-Adressen der BA- 
SIC-Routinen des Acorn B, die wir in dieser 
Serie behandelt hatten. Wenn Sie sich die 
Routinen genauer ansehen, erhalten Sie einen 
guten Einblick in die internen Arbeitsabläufe 
des BASIC. Da nicht alle hier aufgeführten 
Routinen mit dem Befehl RTS enden, empfeh- 
len wir, sie nacheinander von einem eigenen 
Programm aus aufzurufen. Die Analyse dieser 
Techniken kann Ihnen wertvolle Hinweise für 
Ihre eigenen Programme liefern. 


ROM-Einstiegsadresse &8000 
BGET Anweisung &BF6F 
BPUT Anweisung &BF58 
CHAIN Anweisung &BF2A 
CLOSE Anweisung &BF99 
EOF Funktion &ACB8 
INKEY Funktion &ACAD 
INKEY$ Funktion &B026 
INPUT Anweisung &BA44A 
INPUT# Anweisung &BSICF 
LOAD Befehl &BF24 
OPENIN Funktion &BF78 
OPENOUT Funktion &BF7C 
OPENUP Funktion &BF80 
PRINT# Anweisung &8D2B 
SAVE Befehl &BEF3 
TIME Anweisung &92C9 
| TIME Funktion &AEBA 
ı VDU Anweisung &942F 
| 
| 


| Diese Information wurde mit freundlicher Geneh- 
migung von Acorn Computers abgedruckt 
(C) Acorn Computers Ltd (1982) 
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Arbeitsbereich der Sprache pie speicherstellen von 
&400 bis &TFF sind für die 
Sprache reserviert, die au- 
genblicklich geladen ist. 
Das Bild zeigt, wie dieser 
Bereich von BASIC einge- 
setzt wird. 


BASIC-Eingabebuffer. 
Wird sowohl für direkte 
Befehle (die sofort ausge- 
führt werden) eingesetzt, 
als auch für die Eingabe 
von Programmzeilen. 


Arbeitsspeicher für String- 
variablen. 


Bereich des BASIC-Stacks. 
Enthält die Rücksprungin- 
formationen des RETURN - 
und steuert die Schleifen. 


Index für Arrays, Ganz- 
zahlen, Fließkomma- und 
Stringvariablen. 


Speicherbereich für die 
Werte der eingebauten 
Ganzzahlenvariablen. 


REPORT Liefert die Meldung 1981 Liefert die Meldung 1982 


Nicht vorhanden Eröffnet eine Datei für Lese- und 
Schreibvorgänge (Wie OPENIN 
in BASIC I) 


Eröffnet eine Datei zum Eröffnet eine Datei nur 
Lesen und Schreiben zum Lesen 


OPTn Es gibt nur OPT 1 bis 3 Es gibt OPT 1 bis 7. Die vier 
neuen Befehle (OPT 4 bis 7) 
haben die gleichen Funktionen 
wie die des BASIC I, werden je- 
doch auf der Adresse abgelegt, 
die in der Variablen 0% gespei- 
chert ist 3 


0% Keine spezielle Bedeutung Hat-mit OPT (4 bis 7) die dort be- 
schriebene Funktion 


Nicht vorhanden Erlaubt dem Programmierer, 

, Daten in Maschinencodepro- 
gramme einzusetzen, ohne den 
Assembler verlassen zu müssen 


INSTR 
(a$,b$) 


Ein schwerer Fehler. Wenn 
aS$ kürzer war als b$, be- 
stand die Möglichkeit eines 
Programmabsturzes 


reelle Genauigkeit: neun Stellen Genauigkeit: zehn Stellen 
Zahlen 
OSCLI Nicht vorhanden Eine einfache Möglichkeit, per 


Der Fehler wurde korrigiert 


? 


BASIC String-Variablen-Befehle 
an das OS zu übergeben 


Fachwörter von A bis Z 


Loop = Schleife 

Unter einer Schleife ist ein Pro- 
grammabschnitt zu verstehen, der 
durch wiederholten Rücksprung 
mehrfach ausgeführt werden kann. 
Es gibt „bedingte“ und „unbe- 
dingte“ Schleifen. 

Bei einer bedingten Schleife wird 
der zyklische Programmteil nur so- 
lange durchlaufen, bis eine be- 
stimmte Bedingung erfüllt ist. In BA- 
SIC kann dieser Schleifentyp unter- 
schiedlich realisiert werden, etwa 
durch die Anweisung DO 
LOOP...UNTIL, WHILE...WEND, 
REPEAT...UNTIL und FOR...NEXT. 

Bei einer unbedingten Schleife er- 
folgt der Ricksprung zum Eingang 
ohne Bedingungsabfrage; ein Aus- 
stieg ist nur durch äußeres Eingrei- 
fen möglich. Für solche Schleifen 
wird in BASIC das einfache GOTO 
verwendet — mit der Anweisung 
10 GOTO 10 beispielsweise kann 
man aufs bequemste eine Endlos- 
schleife ausführen lassen. 


Low-Level Language = 
Maschinenorientierte Sprache 
Eine Programmiersprache stellt zu- 
meist einen Kompromiß zwischen 
zwei gegensätzlichen Forderungen 
dar: Einerseits soll sie aus Gründen 
der Effizienz an der Funktionsweise 
des Prozessors ausgerichtet, ande- 
rerseits aber so benutzerfreundlich 
wie möglich sein. Wenn die Anwei- 
sungen eng an den Befehlssatz der 
CPU angelehnt sind, ist die Bezeich- 
nung „maschinenorientierte“ oder 
auch „niedere” (Low-Level) Sprache 
üblich. Dabei ist wegen der Ver- 
wandtschaft mit der Kommando- 
struktur des Prozessors wenig Über- 
setzungsaufwand erforderlich, wo- 
durch die Arbeit des Rechners ent- 
sprechend beschleunigt wird. 
Typische maschinenorientierte 
Sprachen sind neben dem hexadezi- 
malen Maschinencode vor allem die 
Assemblersprachen. Die Grenze zu 
den höheren Programmiersprachen 
ist fließend — beispielsweise lassen 
FORTH-Anweisungen eigentlich kei- 
nen Bezug zum CPU-Befehlssatz er- 
kennen, aber strukturell orientiert 
sich diese Sprache eng an dem Be- 
fehlsablauf des Prozessors. 


Hier werden einzelne Fach- 


ausdrücke eingehend behandelt. 


Da bei der Kommunikation mit 
dem Computer meist die 
englische Sprache verwendet 
wird, werden hier zunächst die 
englischen Begriffe genannt, 


dann die deutsche Übersetzung. 


In den Gesamtindex werden 
sowohl deutsche als auch 
englische Stichwörter aufge- 
nommen, damit Sie es leichter 
haben, das von Ihnen 
Gesuchte zu finden. 


Bildnachweise 


1737-1739: Marcus Wilson-Smith 
U2, 1740, 1742, 1743, 17585: Kevin Jones 


1744: Caroline Clayton 

1747: Mecca Bookmakers 

1750, 1751, 1756, 1757, 1760, 1761: 
Ian McKinnell 

1758: Spectrum 


1764, U3: Liz Dixon 


Machine Independent = 
Maschinenunabhängig 

Software wird meist für ein ganz be- 
stimmtes Rechnermodell mit charak- 
teristischen Eigenschaften geschrie- 
ben. Soll ein Programm etwa die 
Grafikfähigkeiten des Apple voll 
ausschöpfen, dann muß es wegen 
der Inkompatibilität der Mikrocom- 
puter für den Commodore 64 voll- 
ständig neu gestaltet werden. Die 
Programmierung kann aber (unter 
Verzicht auf die Nutzung der Eigen- 
heiten eines speziellen Rechners) 
auch so erfolgen, daß die Software 
maschinenunabhängig auf einer 
Vielzahl von Computern lauffähig ist. 
Solche Programme werden als „por- 
tabel“ bezeichnet; die Portabilität ist 
im allgemeinen nur zwischen Rech- 
nern mit gleichem Betriebssystem 
(etwa CP/M) gegeben. 


Fehler 
berichtigung 
Beim Platinenlayout für 
das Spectrum-Interface 
von Seite 1491 sind uns 
leider Fehler unterlau- 
fen. Folgendes muß ge- 
ändert werden Door 
lange Draht muß auf 
seiner rechten Seite um. 
ein Loch weiternach 
rechts versetzt werden. 
Das linke Ende des 

nächsten Drahtes muß 

ebenfalls eine Position 
weiterrücken. Die ein 
zelne Drahtbrückein 
der zweiten Reihe muß 


Rs or pe Löcher 
nach rechts ver] 
werden. Beachten Sie 
auch die Modifikatio- 
nen auf der Leiterbahn- 
seite der Platine. 


+ Vorschau + I+ Vorschau + 


computer 
rs 


Sinclairs neue Kraft 
Der Robot-Arm verlangt schnelle Programme für 
die Servomotoren. 


Aus alt mach neu 

Einige Techniken, die fehlende Möglichkeiten 
und Strukturen von Fortran beheben. Die Spra- 
che wurde in den fünfziger Jahren entwickelt. 


Piraten voraus! 
Action beim Piratenangriff, Sturm auf hoher 
See oder einem Ruderbruch. 


Wetten, daß... .? 


... Spieler sich kaum mit der Wahrschein- 
lichkeitstheorie bei Wettspielen befassen? 


Reden ist Silber 
3 Sprachsynthesizer gibt es für fast alle 


Heimcomputer. Wir betrachten, was sie 
uns zu sagen haben. 


